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NOTA DO 

editor 



Um dos grandes erros que foram cometidos (e ain- 
da estão sendol) com os usuários de microcomputadores pes- 
soais. consiste em se achar que ensinar BASIC é ensinar 
compu tacão I 

Isso seria como querer ensinar o uso de uma ge- 
ladeira começando pelo Segundo Princípio da Te rmo-0 I nâm l - 
c a . 

O BASIC, na realidade, é uma linguagem e como 
tal deve ser ensinada. Para tanto, são muito mais válidas 
as técnicas didáticas utilizadas no aprendizado de LÍNGUAS 
do que. por exemplo, de MATEMÁTICA. 

Ouem já tentou ( e conseguiu) aprender uma lín- 
gua estrangeira saís multo bem que é absurdamente mais im- 
portante o USO do que o ESTUDO. 

Estamos cansados de ver pessoas que. vivendo uns 
dois meses nos ESTADOS UNIDOS, conseguem dominar o Inglês 
enquanto outras, após anos de estudo na escola, não conse- 
guem nem sequer ler as manchetes do "TIME". 

A grande e fundamental diferença entre as duas 
situações está na Interação constante decorrente do uso. 

Se eu falo errado, não sou entendido, se não entendo di- 
reito. faço papel de boboi a consequência de meus erros 
é Imed I ata 1 

A revolução provocada pelos baixos custos da 
eletrônica digital fez com que o microcomputador pudesse 
ser utilizado a nível pessoal, permitindo a interação di- 
reta e Imediata do usuário com a máquina. 

Essa revolução permite que o usuário converse em 
BASIC com o computador e receba respostas Instantâneas: se 
a frase não foi bem construída a máquina acusa um erro de 
sintaxe. Se a lógica da sequência de Instruções tem fa- 
lhas, coisas estranhas e inesperadas comeeam a acontecer. 

A busca do porquê do erro e sua correção se 
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constitui no mais precioso recurso didático para aprendi- 
zagem do BASIC. 

Com base nestas descobertas feitas ao longo de 
anos dedicados ao ensino, derrubando idéias preconcebidas, 
aposentando técnicas ineficientes, é que chegamos à con- 
cepcão deste livro, dirigido especificamente ao usuário 
que não conhece computação e quer aprender a conversar com 
seu computador. 

Nele são apresentados programas simples e curtos 
que o usuário deve digitar (mesmo sem compreendê-los. 
numa primeira abordagem). 

Para que esta digitação seja eficiente, o leitor 
deve ler com muito cuidado os dois capítulos iniciais: 
"Digitação e Edição" e "Gravação em Fita". 

Após digitar e rodar algumas vezes o programa, 
para ver que efeitos ele causa no computador, o usuário 
deve efetuar as alterações sugeridas e fazer suas próprias 
experiências. Neste momento é que começa o verdadeiro pro- 
cesso de aprendizagem. 

Ao completar este volume, o leitor, além de ter 
um valioso acervo de programas úteis e divertidos, já gra- 
vados em fita. terá aprendido de maneira intuitiva a con- 
versar em BASIC com seu MSX. 

No aprendizado de uma língua, a consulta aos di- 
cionários e às gramáticas deve ser feita sempre numa fase 
posterior .à da conversação. 

Analogamente. após se divertir dialogando com 
seu micro ao longo deste livro, aconselhamos a consulta a 
obras mais sistemáticas para tomar conhecimento da "gramá- 
tica" dos comandos e das funções. 

Para tanto, entre outros livros, recomendamos a 
leitura do LINGUAGEM BASIC MSX desta editora, onde estio 
organizados. em ordem alfabética, as palavras deste pode- 
roso BASIC, num verdadeiro dicionário enciclopédico. 

De qualquer forma, todos os programas deste li- 
vro são comentados ressaltando-se suas particularidades e 
ev i denc I ando-se as técnicas empregadas. 

Este é um livro que deverá ser lido. no mínimo, 
duas vezesi na primeira, o leitor se divertirá aprendendo. 
Na segunda. já mais consciente, e tendo incorporado um 
certo vocabulário e algumas técnicas, ele aprenderá se di- 
vertindo. 
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DIGITAÇÃO E EDIÇÃO 





\ 


O 


assim que você liga o computador, surgem auto- 
maticamente. na tela. duas mensagens (flg. 1 . 1 ). 



Para eliminá-las. de maneira a ter a tela Intei- 
ramente à sua disposição para começar a Introduzir seu 
programa, você deve digitar ao mesmo tempo as teclas SHIFT 
e HOME/ CLS (fig. 1.2). Isso faz com que a tela fique lim- 
pa e o cursor se posicione no alto. à esquerda . 
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Acompanhe agora, passo a passo, a digitação de 
um programa curto. Siga r i gorosamente as instruções, 
prestando bastante atenção em cada item. 

O programa que queremos digitar (flg 1.3) dese- 
nha uma pequena figura na tela. Não se preocupe, por en- 
quanto. em saber como ele funciona, pois o Importante nes- 
te capftulo é aprender a digitar. 

10 SCREEN 2 

20 DIM AS<8> f.g. i.3 

30 A% ( 1 ) =CHRl ( «Billiliii) 

40 A1(2)=CHRÍ(SB 10000001) 

50 Al <3 >=CHRÍ(«B 10000001 ) 

60 A%< 4 >=CHR®< «Bi 0000001 ) 

70 AÍB(5)=-CHR%(«B1000000i ) 

80 A'J> ( 6 ) =CHR% ( «B 10000001 ) 

90 A'Ji ( 7 ) =CHR9> ( «B 1 0000001 ) 

95 A% < 8 ) =CHR$ < «B 1 1 1 1 1 1 1 1 ) 

100 F-OR 1 = 1 TO 8sBS=B4+A*(I> sNEXT I 
i 110 SF*R I TÉS ( 1 ) =Bl 
| & ! 120 PI.JT SPRITE 0, (50,05) ,2,1 
1 I 130 GOTO 130 

Comece a digitar a primeira linha e veja o cur- 
sor se movendo enquanto vai deixando atrás de sl o que vo- 
cê teclou (fig 1.4). Antes de começar, aperte (uma única 
vez) CAPS LOCK (trava de maiusculas). Isso faz com que a 
tela fique o mais parecida possível com a listagem impres- 
sa neste I I vro. 

Se você errar alguma letra, basta apertar BS 
(back space) e o cursor voltará para trás apagando. 
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10 screB 
10 screeB 

f 

10 SCREENB 



Ao terminar a digitação da linha 

10 SCREEN ?■ 

você vê o cursor, ainda na frente do último caractere, à 
espera da Introdução de mais letras ou números. Para in- 
formar ao seu Expert que esta linha terminou, voce deve 
teci ar RETURN ( J ). 


1 1 




Neste momento o cursor pula para a próxima linha 
da tela, à espera de mais instruções. 4o mesmo tempo a li- 
nha 1D é armazenada na memória (fig. 1.5). 



Para verificar Isso. limpe a tela (SHIFT + HOME/ 
CLS) e liste o conteúdo da memória «SHIFT + F4/F9 ) . A te- 
la deverá ficar como Indicado na figura 1.6. 


fig. 1.6 



Esta Instrução, quando for executada, pedirá ao 
Expert para colocar a tela no modo gráfico de alta resolu- 
ção. saindo do modo texto (que á o que estamos usando ago- 
r a I ). 

Continuando a digitação do p r og r ama . vamos limpar 
a tela (SHIFT + HOME/CLS) e digitar a linha 

20 DIM Aí ( 8 ) 

conforme a figura 1.7. Ao chegar no fim, não esqueça de 
teclar RETURN ( J ) . 


f lg. 1.7 
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Com ■ instrução deste llnlw você reservou 8 po- 
sições de memória. 

Diga.nos. por exemplo, que voei quisesse reservar 
apenas 7 posi.ões e não 8. Para corrigir a instrução que 
já está na memória, temos 2 soluções • 

1- Red I g I t a nos toda a linha na nova versão (não 
faca isto. apenas I e I a > • 

DIM Ai ( 7 > 

Neste caso. ao teclarmos RETURN («I ) a antiga 
linha 20 é su bs t i t u I da, n a memória, pela nova. 

2- Editamos a linha que jã está na tela. Neste 
caso com o auxilio das setas, levamos o cursor atá o digi- 
to que queremos corrigir e teclamos o 7 em cima do 8. Faca 
Isto e confirme na figura 1.9. 


f lg. 1.9 



Tecle RETURN ( J ) novamente. Não se assuste com 


a mensagem Srntax error (flg 1.10) e continue acompanhando 
o texto. 
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Caso não tenha, limpe a tela ( SH I FT+HOME/CL S ) e 


digite 1 23456789 . 










fl seguir, tecle RETURN ( J) e novamente a se 
quencla 123456789 (seguida de outro RETURN). 

A tela ficará como indicado na figura 1.14 


f lg. 1.14 


[ 123456789 
Santa*: error 
Ok 

123456789 
Syntax error 
Ok 


Leve o cursor até o 5 da primeira sequência e 
digite BS quatro vezes (fig. 1. 15). Leve agora o cursor 
até o 5 da segunda sequência e tecle DELETE quatro vezes 
( f I g . 1 . 16 ). 




oigite a linha 30 (não esqueça o RETURN no fl- 
nall) e a linha 40 (e RETURN I ) . A tela teré agora o aspec- 
to mostrado na figura 1.17. 

flg. 1.17 

139 Al(i>=CHRK8Blllillll> 
|40 AK2>=CHRK8Bi0000001> 


Olhando para o programa original (flg. 1.3) ve- 
rificamos que a linha 50 * pratleamente Igual â 40 Para 

poupar trabalho de digltacío. podemos user o sagiUnte tru- 
que. subimos o cursor até a linha 40 (.companha pela figu- 
ra 1.18). substituímos o 4 pelo 5 e des I oc,m °* 0 
até o 2. subst I tu I ndo-o por um 3. Ao teclarmos RETURN esta 
nova linha é Incorporada na memória sem que a 40 seia apa- 
gada. 


flg. 1.18 





30 Al<i>=CHRl<8Billlllli> 
Efc Al<2>=CHRK8Bi0000001> 


30 Al<i>=CHRl(SBilllilll> 
5© Al < 2 ) =CHRl ( 8B 10000001) 


30 Al<l)=CHRl(8Blillllil) 
50 Al (0) =CHRl(8B 10000001) 


30 Al(l>=CHRl<8Blililill> 
50 Al ( 33=CHRl < 8B 10000001 > 


30 Al(i)=CHRl<8Biiilllli) 
50 Al(3)=CHRl(8B10000001> 
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Para se certificar disso, limpe a tela e liste o 
conteúdo da memória (fig. 1.19). 



Usando essa listagem vocã pode gerar o resto do 
programai as linhas 60. 70. 80 e 90 podem ser criadas a 
partir da linha 50 (não esqueça o RETURN para colocar cada 
nova linha na memória). 

A linha 95 pode ser criada a partir da linha 30 
e as outras devem. I nf e I i zmente . ser digitadas por Intei- 
ro. Não se pfeocupe com a ordem com a qual as linhas são 
inseridas na memória. 0 EXPERT se encarrega de arquivá-las 
em ordem numérica crescente. Ao terminar a digitação, lim- 
pe a tela e liste a memória. 

A tela deverá mostrar o programa Igualzinho à 
figura 1.3. 

Confira com cuidado pois cada virgula é funda- 
mental para que o programa funcione. 

Se houver necessidade de correcões. use todos os 
truques aprendidos até aqui mas não se esqueça de teclar 
RETURN para inserir uma linha nova ou alterada na memória. 

Limpe a tela ( SH I FT+HOME/CLS ) e vamos rodar o 
programa. Para Isto basta teclar F5. 

A tela se põe no modo gráfico e aparece o qua- 
drado definido pelos digitos 1 e 0 das variáveis A$ (flg. 
1 . 20 ). 

flg. 1.20 
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Onde há um dígito 1. o ponto é aceso; onde há um 
dígito 0 . ele é deixado apagado (flg. 1 . 21 ). 

f I g. 1 .21 


AS(i) = 
Aí<2> = 
át(3) = 
A4<4> = 
A4 ( 5 ) = 
Ai(6> = 
A% ( 7 ) = 
At < 8 > = 


Digamos que você queira alterar o desenho. Para 
Isto basta listar o programa novamente e alterar alguns 1 
e 0 . 

Antes, porém, vamos aprender mais um truque mul- 
to útil para quem tem todos os programas deste livro pela 
frente. Você deve ter reparado quantas vezes limpamos a 
tela e listamos o programa. Toda vez que uma operação é 
multo repetitiva, é conveniente atribuí-la a uma tecla de 
função, para poupar trabalho. 

Vejamos como fazer isso. Iniclalmente digite 
CONTROL+STOP para Interromper o programa. A tela assumirá 
o aspecto da figura 1 . 22 . 

f i g . 1.22 

/■ 

Break in 130 

■ 



1 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

0 

0 

0 

1 

1 

0 

0 

0 

.0 

0 

0 

1 

1 

0 

0 

0 

0 

0 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 



Digite agora. KEY 1 , "CLS : LIST"-rCHRí ( 13 > 

Após o RETURN a listagem das chaves de função 
que aparece na última linha da tela é alterada (flg. 1.23). 

Aperte a tecla F1 (que foi redefinida) e você 
terá a tela limpa e o programa todo listado. Se quiser 
brincar um pouco, aperte F1 várias vezes. 

Agora cuidado, se você desligar o computador, 
além de perder o programa que você digitou até aqui. per- 
derá o conteúdo da. tecla F1 . voltando ao ”color“ que havia 
original mente. 
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f i g . 1-23 



Altere agora o programa mudando 1 e 0 de maneira 
a obter o Indicado na figura 1.24. Lembre-se que as alte- 
rações somente são registradas na memória se a tecla 
RETURN ( 4) for acionadal 

f I g . 1 . 2<1 
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Para cer t I f I car-se disso, 
se suas alterações coincidem com a 
F5 (RUN) para acionar o programa e 
ai terações. 


tecle F1 e verifique 
figura 1.25. Tecle 
veja o efeito de suas 


f I g . 1.25 


10 SCREEN 2 
20 DIM Aí ( 8 ) 

30 AÍ(i)=CHRÍ(«Biiiiiiií) 

40 AÍ(2)=CHRÍ(&B1000000i> 

50 AÍ<3)=CHRÍ(«Bi0100i0i> 

60 Aí ( 4 )=CHRi< &B 10000001 > 

70 A5(5)=CHRÍ(«Bi0i00i0i) 

00 AÍ<6)=CHRÍ(&B1001i00i> 

V0 Aí ( 7 ) =CHR% ( &B i 000000 
95 AÍ(8)=CHRÍ(«Biliiiiil> 

100 FOR I=i TO 8=BÍ=BÍ+AÍ( I > :NEXT I 

110 SPRITEí < i )=BÍ 

120 PUT SPRITE 0,(50, 85), 2,1 

130 GOTO 120 


Se quiser ampliar a figura. breque o programa 
( CONTROLS STOP ) . Itste-o ( F1 ) a altere a linha 10 para 

10 SCREEN 2,1 

Limpe a tela (SHIFT ♦ HOME/CLS) e rode-o de novo 

digitando ¥QC , p0 de brincar è vontade, montando a 

figurinha que quiser e pos I c l onando-a onde ■Julser. 

Para alterar a figurinha, basta alterar a se 
qutncla de 1 e 0 . mantendo-se, porém, dentro de uma ta 

bela 6x8. ^ p 0 s | c ã o e a cor da figurinha são dadas pela 
linha 120 (f lg. 1 . 26 ). 


flg. 1.26 


120 PUT SPRITE 


0,(50, 85), 2,1 



COR 

LINHA ( até 191 ) 
COLUNA (até 255) 
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Uma alteração gerando efeitos malucos seria. 

120 PUT SPRITE 0, <255#RND<2> , 19i*RND<2> ) , 13#RND<2>+2, 1 


gramas 

alguns 

(basta 


Faça-a e veja seus efeitosl 

Antes de partir para a digitação de outros pro- 
porém. seria conveniente que você aprendesse mais 
truques. 

Liste o programa e coloque o cursor no começo 
digitar HOME/CIS. sem SHIFTI). 

Digite agora CONTROL+F . o cursor se posiciona 


no início da palavra segulntel 

Faça isso várias vezes e veja que o EXPERT en- 
tende por"palavra segulnte"a que começa por letra ou al- 


ga r i smo . 


caminho inverso 


dado por CONTROL+8 


1.27). 


f lg. 1.27 



PALAVRA ANTERIOR— CONTROL 1 + B 


Liste o programa (F1) e coloque o cursor no co- 
meço (HOME ou CONTROL+K). 

Desloque o cursor até o melo da linha 10 (em ci- 
ma do R. por exemplo) e digite CONTROL+E (fl9. 1.28). 


f lg. 1.28 



Esse comando apaga desde o cursor até o fim da 
I I nha de programai 
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Um que tem efeitos mais drásticos é o CONTROL+U. 
Coloque o cursor sobre o M da linha 20 e dê esse comando 
(f lg. 1.29). 

f lg. 1.29 


10 SC 

20 Dl®] A5(8> 

30 AÍ(i)=CHRS<SBlllilili ) 


10 SC 

■ 

30 AS(l>=CHRi(&Bliilllil> 


Outro comando útil é o CONTROl+N, ele leva o 
cursor at* o fim da linha de BASIC. permitindo uma boa 
economia de tempo em certos casos. 

Coloque novamente o cursor em cima (HOME) e co- 
mece a apertar a tecla TAB (ou CONTROL+I. tanto faz!). 0 
cursor começa a andar de 8 çm 8 posições arrasando o que 
está no caminho. 

Estes estragos, porém. s6 se tornam definitivos 
se você “of I c 1 a I I zá-l os" digitando RETURN. 

Se v o c 8 , porém, limpar a tela ( SH I FT+HOME/CLS ) e 
teclar F1 . verá que o programa ainda está na memória. 

As vezes. Interrompendo algum programa no meio 
da execução, a cor de frente e de fundo são idênticas e 
não conseguimos ler mais nada (você já tentou escrever com 
tinta verde sobre papel verde?). 

Neste caso digite F6 (SHIFT + F1 ) para reestabe- 
lecer fundo preto e tinta branca! 

Finalmente, um comando I mpor t an t ( ss i mo ■ 

CONTROL+G . Ele não faz absolutamente nada a não ser um 
"beep" sem graça cuja única função é chatear parentes e 
v I z I nhos I 


Mãos à obra e divlrta-sel 



GRAVAÇAO 
EM FITA * 



S3-3) 


a RAM. 


0 EXPERT possui dois tipos de memórias, a ROM e 


A ROM já vem com todo o seu conteúdo gravado de 
fábrica e nela não podem ser nem acrescentadas nem elimi- 
nadas I nf ormacões . 

Na RAM. em compensação, podemos escrever e apa- 
gar à vontade, e’ como se a ROM fosse um livro já impresso 
e a RAM um quadro negro no qual podemos usar giz e apaga- 
dor . 


Quando desligamos o micro, o conteúdo da RAM, 
onde o usuário escreve seus programas em BASIC, é apagado 
enquanto que o da ROM é preservado. 

Para arquivar um programa escrito na RAM. você 
deve então gravá-lo. Se no seu EXPERT estiver conectado um 
"d I sk-dr i ve" (sistema de disco magnético), basta digitar 


SAWE "nome do programa" 


e ele será gravado no disco com o título escolhido. 

Se você quiser gravá-lo em fita cassete, deve- 
rá tomar alguns cuidados. 


CONEXSO DE CABOS 


Ligue o cabo do gravador na parte traseira do 
console (conexão OATA-COROER) conforme a fig. 2.1. 


f i g . 2.1 
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No outro terminal do cabo você tem 3 plugs (fig. 
S.S). O vermelho deve ser conectado na entrada do microfo- 
ne do gravador (MIC). E através deste terminal que passam 
as Informações do computador para o gravador. 

O terminal branco serve para mandar Informações 
do gravador para o computador e deve ser conectado na en- 
trada E AR (MONITOR, em certos gravadores). 

O plug preto (mais fino que os outros dois) é o 
controle remoto do motor (REM) e não precisa ser obriga- 
toriamente conectado, pois alguns gravadores não possuem 
este recurso . 

No DAT A-COROER da Gradiente ele deve ser conec- 
tado em REM o que permite que o próprio computador ligue e 
desligue o motor que faz a fita andar. 

fig. S.S 



GRAOACSO DO PROGRAMA 

Digite este curto programa no Expert, 

fig. 2.3 

10 REM PROGRAMA UM 
20 SCREEN i 
30 FOR N = 0 TO 255 
40 VPOKE 6144 + N , N 
50 NEXT N 
60 LOCATE 0,8 

Se você tiver curiosidade de saber o que ele 
faz, rode-o com F5 (RUN) algumas vezes e depois limpe a 
tela ( SH I FT+HOME/CLS ) . 

Depois digite, 

CSAVE "UM" (sem teclar RETURNI) 
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Verifique se a fita está bem posicionada e se o 
trecho inicial (sem material magnét I co > _ j é foi “ 
do. Aperte as teclas PLAY e REC (gravaçao). No OATA-CORDER 
isso correponoe às teclas SAVE e LOAO. . 

Se o plug REM estiver conectado, a fita ficara 
parada. Caso contrário, começará a rodar. 

Digite RETURN ( J ) e a gravação começaré. 

Ao terminar, aparecerá um O» na tela. Pare o 
gravador se o plug REM não estiver conectado (se estiver, 
ele parará soz I nho ). 

Limpe a tela ( SHI FT + HOME/CLS ) e liste o programa 
Altere-o. agora, conforme a listagem da figura 

2.4. 


10 REM PROGRAMA DOIS 
20 SCREEN 1 
30 FOR N = 0 TO 255 
40 OPOKE 6144 + N , N 
45 OPOKE 8192 + N , N 
50 NEXT N 
60 LOCATE 0,8 

Se tiver curiosidade, rode-o com F5 (RUN). 

Limpe a tela e liste o programa. Seu Expert pa- 
rece agOra um arlequim blbado. Não se preocupei Tecle F6 
(SHIFT f Fl I < i ordem será restabelecida. 

Com a fita parada no final do programa UM digi- 
te. 



CSAVE "DOIS" 

e repita todo o procedimento de gravação. 


LEITURA DA FITA 

Vamos agora recuperar os programas gravados (UM 

e 00 IS ). 

Rebobine a fita até o começo, limpe a tela e. se 
quiser, a RAM do computador também (digitando NEW e RETURN 
ou então desligando o computador). 

Digite agora. 

CLOAD "DOIS" (sem RETURN aind".) 

Aperte PLAYlou LOAO no OATA-COROtR) RETURN! «I ) 
no computador, a leitura começará. 
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Sa tudo estiver correto, a leitura passará pelo 
programa UM mas não o carregará na memória pois você pediu 
o 00 IS. Isto será, indicado na tela por 

Sk i p : UM 

fl seguir, o título (só o títulolf do segundo 
programa será lido e a tela mostrarát 

Found :DOIS 

Oepois disso, o programa propriamente dito será 
lido, e a tela indicará o fim do processo mostrando Ok . 

Liste o programa com F9 (SHIFT+Fq) e você deve 
encontrar o programa da figura 8 . q . 

PROBLEMAS NA LEITURA 

Se o procedimento de leitura descrito não correu 
conforme o esperado, houve algum problema que vamos agora 
tentar contornar. 

Os gravadores comuns são projetados para repro- 
duzir SOM e não o sinal digitalizado de um computador. 
Consequentemente, eles devem ser regulados e ajustados. 
Isto corresponde mais ou menos a afinar um vlollnoi uma 
vez feito o ajuste, se ninguém mexer, a afinação durará 
por mui to tempo . 

1) Verifique se a fita é de boa qualidade. Existem fitas 
de péssima qualidade que soltam a emulsão magnética (su- 
jando Inclusive a cabeca de gravação). Não use fitas de 
longa duração, sendo ideal a C-20 ou. no máximo, a C-30. 

2) Limpe a cabeça de gravação com cotonete embebido em ál- 
cool. Deixe secar. Para gravadores com multo uso (30 horas 
ou mais), convém d e smag ne t I z a r o cabeçote (qualquer rádio- 
técnico faz Isso em 5 minutos). 

3) Verifique se o cabo não está com defeito. 

*1) Evite qualquer vizinhança com fontes de poluição magné- 
tlcai Imãs. bobinas, transformadoras, traseiras de televi- 
são. reatores de lâmpadas fluorescentes, motores elétri- 
cos. emissoras de FM. etc. 

5) Faça uma boa gravação, repetindo os procedimentos In- 
dicados neste capítulo. e tente ler os dados mudando o 
ajuste de volume e tonalidade (se existir este controle 
no seu gravador). Tenha paciência e tente todas as combi- 
nações possíveis. 

Assim que conseguir a leitura anote os valores ótimos 
ou. melhor ainda, faça uma marca nos controles. 

6) Se tudo isto não funcionar, troque o gravador, pois 
existem alguns modelos que só são compatíveis com compu- 
tadores após sérias modificações de circuito. Lembre-se 
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que uma boa reprodução de música não tem nada a ver com 
gravação de bits. 


7) Use. para leitura, o mesmo gravador usado para grava- 
ção. Ligeiras mudanças de rotação ou na regulagem do azi- 
mute (ângulo de alinhamento da cabeca de gravação) podem 
incompatibilizar a gravação com a leitura. 

LEITURA DE FITAS DE TERCEIROS 

Quando você tem uma fita que foi gravada num 
gravador diferente do seu. podem ocorrer problemas de lei- 
tura. 

0 mais fácil de ser resolvido é o que se refere 
ao volume. às vezes você deve procurar um ajuste diferente 
do usua I . 

O outro problema é do alinhamento do cabecote. 

Verifique o ajuste do azimute da cabeça que é 
feito por um pequeno parafuso do lado esquerdo (figura 
2.5). Em alguns gravadores já existe um furo para alcançá- 
lo com uma chave de fenda. Em outros, o furo deve ser a- 
berto com uma furadeira. Ponha o programa para rodar e ou- 
ca-ol Girando o parafuso do azimute de um lado para o ou- 
tro você deve achar um ponto de estridência máxima. Esse é 
o ponto de aj uste . 

f I g . 2.5 



Lembre-se. porém, que ao regular o gravador para 
outras fitas, você o está desregulando para as suas. 

Um procedimento inteligente seria de não mexer 
em seu gravador e fazer toda essa procura com outro. Após 
conseguir ler a fita e carregar o programa no seu compu- 
tador. grave-o novamente no SEU gravador de maneira a ter 
uma gravação compatível. 
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A FITOTECA 


Para criar sua colecão de programas é convenien- 
te ser organizado. 

1) Faca um caderno registrando as fitas, seu conteúdo e. 
se possível, a marcação do contador correspondente ao iní- 
cio de cada progr ama . 

2) Use fitas curtas, não s6 por motivos técnicos (as lon- 
gas são mais frágeis) mas também para facilitar a busca de 
um determinado programa. 

3) Armazene as fitas longe do calor, umidade e campos ma- 
gnét I cos . 

4 ) Tendo uma fita de conteúdo desconhecido, carregue os 
programas sequ e nc i a I me n t e usando o comando 

CLOAD 

Desta forma, o primeiro programa que for lido será car- 
regado. I dent I f i que-o e continue o procedimento até o fim, 
de maneira a levantar o índice do conteúdo. 

5) Não sei a "pão-duro"i copie fitas para os amigos (se 
possível no gravador delesl). Seja. porém. um pirata 
"gent I eman" i cite sempre a fonte e o autor do programa. 

6 ) Bom d I ver t imento I 



INSTRUCoES 

Uma das primeiras coisas que você deve fazer ao 
ligar um computador num aparelho de TV é ajustá-lo para 
que a Imagem na tela não "canse" a vista. Os monitores de 
vídeo (aparelhos especiais para uso com computadores) em 
geral produzem Imagens multo boas. tornando desnecessária 
uma maior preocupação do usuário com seu ajuste. Entretan- 
to. mesmo que voei possua um. não perderá nada digitando 
este programa. 

Ouando executado, ele gera uma Imagem no vídeo e 
uma sequência de notas musicais. 

A Imagem possui 13 linhas horizontais e 17 li- 
nhas verticais ocupando toda a tela. No centro da tela 6 
construída uma esfera com uma espécie de visor, e na parte 
inferior são apresentadas as 16 cores com seus respectivos 
cód I gos ( f I g . 3.1). 


f lg. 3.1 
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Quando a TV está bem ajustada, a imagem deve fi- 
car fixa e inteiramente dentro da tela (exceto a palavra 
ALEPH no centro), com as linhas horizontais REALMENTE HO- 
RIZONTAIS e com as linhas verticais REALMENTE VERTICAIS. 
Além disso, os sons gerados devem ser nítidos e altos. 

Se a sua TV não produzir o que descrevemos. não 
chame o técnico aindal Existem alguns pontos chaves a se- 
rem verificados e que podem ser os responsáveis pela má 
qualidade da imagem ou do soml 

Antes de mais nada. tente ajustar melhor o botão 
de sintonia da TV. Se isso não resolver, verifique se o 
canal selecionado é o mesmo no micro, no aparelho de TV e 
no adaptador, caso ele esteja sendo usado. Não obtendo su- 
cesso num canal. tente no outro (em geral, existem dois 
canais permi 1 1 dos I ) . 

A maioria dos aparelhos de TV permitem também um 
ajuste individual da sintonia vertical e horizontal atra- 
vés de botões situados na parte traseira. Use-os apenas 
como último recurso I 

Quando conseguir uma imagem estável, regule o 
contraste e o brilho de modo a não prejudicar seus olhos. 
Guarde as posições em que estão os botões para que nas 
próximas vezes seu trabalho seja minimizado. 

Com o aparelho de TV corretamente ajustado, você 
pode programar sem se cansarl 

DIGITACao 

Este programa não envolve nenhuma dificuldade 
para ser Introduzido. Entretanto, se você não possui mul- 
ta prática com o teclado do MSX. preste bastante atençãol 

Como já vimos no primeiro capítulo, você pode 
economizar tempo na digitação de linhas semelhantes. bas- 
tando para Isso levar o cursor até a linha já introduzida, 
mudar seu número e alterar seu conteúdo. 

A linha 50 pode servir de base para Introdução 
das linhas 110. 140. 180. 860 e 870. pois todas são aber- 
turas de laços FOR... NEXT. 

A linha 100. igualmente. pode ser usada para 
gerar as linhas 130. 160. 810 e 340. 

A linha 90 pode ser transformada nas linhas 180. 
150. 880. 830 e 890. 

A linha 170 pode gerar as linhas 190. 800 e 840. 

As demais linhas são distintas, apesar de algu- 
mas possuírem partes semelhantes. Não se perde multo tempo 
dlgltando-as separadamente. 


10 Ajuste de TV 

20 MAXFILES=i 

| # 30 OPEN "GRP s " FOR OUTPUT AS Hl 
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40 SCREEN 2,l:C0L0R 4,7,5sCLS 
50 FOR F=0 TO 15 
60 G=F*16:H=G+15 
70 PRESET ( G+5» ( G > 0 ) , 1 68 ) 

80 PRINT Ml ,F 

90 LINE<G,i76)-<H,i9i),F r BF 
100 NEXT F 

110 FOR F=0 TO 256 STEP 16 
120 LINE(F,0)-(F, 192) 

130 NEXT F 

140 FOR F=0 TO 192 STEP 16 
150 LINE(0 r F)-( 255 , F ) 

160 NEXT F 

170 CIRCLE( 128,88) , 58 „ 7 : P AINT ( 128,88) ,7 

180 FOR B=57 TO 4 STEP-8 

190 CIRCLE (128,88) ,57,4, , ,57/B 

200 CIRCLE(128, 88 >,57 r 4, rr B/57 

210 NEXT B 

220 LINE(i28,30>-<12B,160>,4 
230 LINE < 71 , 88 ) - < 1 84 , 88 ) r 4 
240 CIRCLE(i28,88) ,20,7»PAINT(i28,88 ) ,7 
250 Bí=" ALEPH" 

260 FOR F=49 TO 56 

270 FOR G=65 TO 71 

280 LINE <i08,84>-(i50, 92 > , 7 , BF 

290 PRESET ( 110,84) : AÍ=R IGHTí < Bí , 5 ) 

300 PR INTMi , Aí 

310 Bí=R IGHTí ( Bí , 1)+LEFT1(BÍ,Í0) 

320 P%="Vi50"+CHRÍ ( F ) +CHR % ( G ) 

330 PLAY PÍ,PÍ,P% 

340 NEXT G , F 
350 GOTO 260 


ANAL SE 


Vamos agora estudar um pouco esse programa e 
tentar identificar suas partes principais. 

As linhas iniciais, até a 40. apenas preparam a 
tela para a produção da imagem, definindo a cor da borda, 
do fundo e do primeiro plano que serão usadas e abrindo um 
arquivo na tela de alta resolução. Não se preocupe multo 
com Isso por enquanto l 
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0 I aco entre as linhas 50 e 100 produz as cores 
e seus códigos na parte inferior do vídeo. 

0 laço entre as linhas 110 e 130 produz as li- 
nhas verticais, e o laeo entre as linhas 140 e 160 produz 
as linhas horizontais. 

A linha 170 limpa uma área circular no centro da 
tela onde posteriormente o laço entre as linhas 180 e 810 
gera uma esfera. 

As linhas 880 e 830 completam a figura da esfera 
no centro da tela e a linha 840 limpa uma outra região 
circular e menor no seu centro. Dentro dessa região é 
apresentada. como se estivesse girando, a palavra ALEPH. 
enquanto as notas musicais vão sendo produzidas. 

As notas e a palavra girando são produzidas pe- 
las linhas finais do programa. Por enquanto não é neces- 
sário que as estudemos. 

Agora que tá identificamos as principais partes 
do programa, vamos fazer algumas experiências com ele. An- 
tes. porém, é conveniente que você o grave se for utilizá- 
lo pôster I ormente I 

Altere as linhas 110 e 140 colocando STEP 8 ao 
Invés de STEP 16. Isso fará com que aumentem as linhas no 
vídeo. 

Agora mude o STEP-8 da linha 180 para STEP-4. 
Assim, a esfera produzida terá uma superfície mais deta- 
Ihadal Uma alteração mais drástica pode ser obtida mudando 
de 7 para 4 a cor definida na linha 170, e mudando de 4 
para 7 a cor definida nas linhas 190. 800. 880 e 830. 

Com essas alterações, a esfera do centro da tala se dege- 
nera. 

Como última sugestão, acrescente a linha. 

165 CIRCLE ( 1 28 , 88 > r 58 ,7:PAINT( 128 > 88 > ,7 

Isso faz com que a esfera central seja novamente 
produzida, porém de uma forma um pouco alteradal 

Agora é a sua vez de propor novas alteracõesl 

Tente melhorar o "visual" do programai 
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CALEID OÓCOPIO 


INSTRUÇÕES 

Este programa não é um jogo'. Nem tampouco um 
utilitário. Ele é. contudo, um programa criatlvol 

A palavra CALEIDOSCÓPIO provém do grego CALEIDOS 
( =do belo) + SCOPIO (=vlsor), portanto, significa VISOR DO 
BELO. Isso define para que serve o programai 

Ou em já fez um caleidoscópio com papelSo vidros 
coloridos e espelhos, sabe que o número de imagens dife- 
rentes que se pode observar através dele é multo grande. 
Nosso programa, apesar de bastante curto, é capaz de gerar 
milhões e milhões de figuras diferentes no vídeo do MSX. 

Cada figura é formada por quatro partes perfei- 
tamente simétricas, dando-nos a Impressão de que a tela é 
o Interior de um caleidoscópio. Você ainda pode participar 
da confeccão da figura digitando qualquer tecla de letras. 
Exper Imente para ver I . 

DIGITACZO 

O programa é bastante curto mas, mesmo assim, se 
você quiser economizar tempo, tome muito cuidado ao digi- 
tar as linhas com várias Instruções separadas por dois 
pontos e utilize as linhas já introduzidas para gerar ou- 
tras, sempre que possível. 

Observe na listagem que a linha 40 pode ser usa- 
da para produzir a 50 . Esta, por sua vez, serve de base 
para a li nha 70 . 

A linha 90 pode ser usada para gerar as linhas 
100, 110 e 120. 

Lembre-se* para usar uma linha já digitada, leve 
o cursor até ela. altere seu número e seu conteúdo (se ne- 
cessário) e digite RETURNI 
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10 Cale i doscop i o 

20 SCREEN 3 : C=84 s 1 = 127 : D=0 : E=D 
30 FOR G=E TO C*< i+RND < -TIME ) *3 ) 

40 H=INT<36*RND(-TIME> ) :IF H/4< >H\4 THE 
N 40 

50 D=INT < D+H#RND ( -TIME > > s IF D/4< >D\4 TH 
EN 50 

60 E=INT(E+H#RND(-TIME)):IF E/40EX4 TH 
EN 60 

70 D=D AND D < =C : E=E AND E<=C 
80 K = INT<2+13»RND<-TIME> > :P$="Vi5SÍ 4M40 
00L8N"+STR5<INT<RND<-TIME>*60+9) > : PLAY 
PI 

90 PSET<I+D,C+E) r K:PSET(I+D,C-E) ,K 
100 PSET < I-D , C+E ) , K 5 PSET ( I-D , C-E ) , K 
I 110 PSET < I+E , C+D ) , K s PSET < I+E , C-D ) , K 
! 120 PSET ( I-E , C+D ) , K s PSET ( I-E , C-D ) , K 
| 130 IF INKEYK >"" THEN CLS 
| 140 NEXT G s GOTO 20 


AN4LISE 


O funcionamento do CAL E I 00SC6P I O é bastante sim- 
ples. A linha ao define a teia a ser usada (no caso. a te- 
la gráfica de baixa resolução) e atribui os valores Ini- 
ciais às variáveis C. I. 0 e E. 

A linha 30 abre um laco que será repetido um nú- 
mero Indefinido de vezes. 

As ilnhas entre 40 e 70 servem para gerar dois 
números aleatórios e inseri-los nas variáveis D e E. Elas 
serão usadas para produzir a figura no vídeo. 

A linha 80 insere um número entre 5 e 14 na va- 
riável K e gera uma nota musical a< acaso. 

As linhas de 90 à 120 produzem os pontos da fi- 
gura na tela. 

A linha 130 verifica se você está pressionando 
alguma tecla e. em caso positivo, limpa a tela. 

Finalmente, a linha 140 fecha o laco aberto na 
linha 30 e. após sua última execucão. desvia o programa 
para a tinha 20. reiniciando tudol 

Após ter executado o programa algumas vezes e 
verificar como ele funciona. experimente alterá-lo dei- 
xando-o assimi 

| S 10 r Caleidoscopio II 
1 i 20 SCREEN 2 s C=84 s 1 = 127 1 D=0 ' E=D 
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\ 30 FOR G=E TO C« ( 1+RKD ( -TIME > «3 > 

1 40 H=INT<36«RND<-TIME)):IF H/4< >H\4 THE 
! N 40 

150 D=INT(D+H*RND<-TIME))sIF D/4< >D\4 TH 
j EN 50 

j 60 E=INT(E+H#RND<-TIME> ):IF E/4< >E\4 TH 
! EN 60 

1 70 D=D AND D<=C:£=-. AND E<=C 
j 80 Pl="V15Si4M4000L8N"+STRi<INT(RND(-TI 
I ME)«60+9) ) «PLAY Pi 
í 90 PSET ( I+D,C+E) sPSETÍ I+D,C-E) 

: 100 PSET < I-D , C+E ) s PSE i < I-D , C-E ) 

! Ü0 PSET ( I+E,C+D) :PSET< I+E r C-D> 

! 120 PSET < I-E , C+D ) :PSET < I-E , C-D) 
j 130 IF INKEYK >"" THEN CLS 
\ 140 NEXT GsGOTO 20 
Ou assim! 

! 10 Cale i doscop i o III 

i 20 SCREEN 2:C=84: I = 127:D=0 : E=D 
! 30 FOR G=E TO C« < i+RND< -TIME ) #3 ) 

| 40 H=INT ( 36*RND< -TIME ) ) s IF H/40HN4 THE 
I N 40 

j 50 D=INT<D+H#RND(-TIME))íIF D/4<>D\4 TH 
I EN 50 

! 60 E=INT(E+H»RND(-TIME))SIF E/4<>E\4 TH 
j EN 60 

! 70 D=D AND D<=C:E=E AND E<=C 
\ 80 Pi="Vi5Si4M4000L8N"+STRKINT<RND<-TI 
I ME > *60+9 > ) : PLAY Pi 

j 90 LINE(I,C)-( I+D,C+E) :LINE(I,C)-<I+D,C 
í -E) 

j 100 LINE<I r C)-<I-D,r-»E):LINE(I r C)-(I-D r 
I C-E) 

I 110 LINE < I , C)-< I+E,C+D> sLINE<I,C)-(I+E r 
I C-D > 

! 120 LINE < I , C ) - ( I-E , C+D ) sLINE < I » C) - ( I-E, 
I C-D) 

I 130 IF INKEYK)"" THEN CLS 
I 140 NEXT G i GOT O 20 


Ou ainda, assim. 


§ 

í 


% 


j 10 ' Cale i doecop i o IV 

•20 SCREEN 2:C=84: 1=127 : D=0 : E=D 

\ 30 FOR G=E TO C*(i+RND(-TIME)*3) 

40 H= INT ( 36#RND (-TIME) ) üF H/4< >H\4 THE 
! N 40 

50 D=INT (D+H#RND(-TIME) > s IF D/4< >D\4 TH 
' EN 50 

60 E=INT(E+H*RND(-TIME> ) : IF E/4< >E\4 TH 
i EN 60 

! 70 D=D AND D<=C:E=E AND E<=C 
80 Pl="V15S14M4000L8N"+STRl( INT (RNDC-TI 
| ME)*60+9) ) : PLAY Pí 
! 90 L I NE <I + D,C+E>-<I+D,C-E) 

| 91 LINE<I+D,C-E)-(I-D, C-E ) 

92 LINE(I-D,C-E)-<I-D,C+E) 
i 93 LINE(I-D,C+E>-(I+D,C+E> 

94 LINE(I+E,C+D)-(I+E, C-D ) 

95 LINE<I+E,C-D)-(I-E,C-D) 

96 L I NE ( I -E , C-D )-(I-E,C+D) 

97 LINE(I-E,C+D)-(I+E,C+D) 

130 IF INKEYiO"" THEN CLS 

| 140 NEXT GíGOTO 20 


Agora o efeito não parece mais com um caleidos- 
cópio porém continua a ser belo. 
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AMA6RAMA 



INSTRUÇÕES 

Um ANAGR AMA é uma palavra ou frase formada a 
partir de outra por meio de uma permutação de letras. Por 
exemplo, a palavra ROMA é um anagrama da palavra AMOR. 

O jogo deve ser disputado entre duas pessoas. 
Cada uma deve tentar descobrir qual a frase original In- 
troduzida pela outra a partir de um dos possíveis anagra- 
mas apresentados pelo computador. 

Apesar do programa aceitar frases de até trinta 
e cinco letras, é Interessante. pelo menos no Início, os 
dois jogadores combinarem a Introdução de palavras curtas 
de até seis ou sete letras. Caso contrário, o anagrama 
torna-se multo complicado e difícil de ser decifrado. 

Quando um dos jogadores estiver decifrando o 
anagrama do outro, deve Introduzir uma letra de cada vez 
seguida da tecla RETURN. A introdução de um espaço pode 
ser feita simplesmente pressionando-se RETURN. 

Cada letra ou espaço introduzido em lugar Incor- 
reto será contada como erro. 

Vence o jogador que conseguir descobrir a pala- 
vra ou frase original cometendo o menor número de erros. 

Dl GI T ACAO 

Não há grandes problemas quanto à digitação do 
programa ANAGRAMA. 

Tome apenas cuidado nas linhas 160 e 170 onde 
aparec'em as instruções MID$(B$.Q.1) e M I D$ ( B$ . W . 1 ) . Elas 
devem ser digitadas exatamente como estão listadas: sem 
qualquer espaço entre os caracteres. 
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i REM "Anagi 
10 KEYOFF 

20 CLS : COLOR 11,8 
30 LOCATE i 4 r 0 
40 PRINT "ANAGRAMA" 

50 LOCATE 2,4 

60 PRINT "Escreva uma frase de no maxim 

0 35 letras, 6em o outro jogador ve 

r." 

70 LOCATE Í,i2 
80 LINE INHJT Aí 
90 BÍ=AÍ 
100 C = LEN(AÍ) 

110 IF C > 35 THÊN RUN 

120 FOR I = 1 TO 3*C 

130 Q = INT (RND(-TIME) « C + 1) 

140 U = INT (RND(-TIhE) * C + 1) 

150 Yí = MIDI (BÍ,Q,1) 

160 MIDÍ(BÍ,Q,i) = M I Dí ( Bí , U , 1 ) 

170 MIDI ( Bí , U , 1 ) = Yí 
180 NEXT I 

190 COLOR 11,4 s CLS 

200 LOCATE 14,0 ! PRINT "ANAGRAMA" 

210 LOCATE 2,4 : PRINT "0 anagrama e :" 
220 Z = INT < (38-0/2) : FOR I = 0 TO C 
+1 : LOCATE Z+I,6 : PRINT CHRi<220>? : 
LOCATE Z+I , 8 : PRINT CHRí (223) ; s NEXT 

1 

230 LOCATE Z,7 : PP T NT CHRí (221 ) : LOCA 
TE Z+C+1,7 : PRINT ÍHR 1(202) 

240 LOCATE Z+1,7 : PRINT BI 

250 LOCATE 2,10 : PRINT "Desembar al he a 

s letras ..." 

260 FOR I = 0 TO C+i s LOCATE Z+1,12 : 
PRINT CHRí ( 220 ) ; : LOCATE Z+I,14 : PRIN 
T CHRí (223) ; : LOCATE Z+1,13 : PRINT "? 
"; : NEXT I 

270 LOCATE Z,13 : PRINT CHRí (221 ) : LOC 
ATE Z+C+1,13 s PRINT CHRí(202) 

280 1=1 
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290 LOCATE 2,16 : PRINT "Numero de erro 

s ="*E 

300 LOCATE 5,19 : PRINT "Qual a letra 

" s LOCATE 18,19 : Cl=" 
" : INPUT Cl : Cl = LEFT1(C1,1) 

310 IF Cl = "" THEN Ct=" " 

320 IF Cl = MIDI ( Al ,1,1) THEN 350 
330 E = E + 1 
340 GOTO 290 

350 LOCATE I+Z,13 s PRINT Cl 

360 1=1+1 

370 IF I <= C THEN 300 

380 LOCATE 3,21 s PRINT "APERTE UMA LET 
RA PARA RECOMECAR" 

390 IF INKEY1 = "" THEN 390 
400' RUN 


ANALISE 


As linhas de 10 a 80 preparam a tela para a In- 
trodução da palavra ou frase por um dos jogadores. 0 pro- 
grama pira na linha 80 á espera da frase que deve. ap6s 
digitada, ser seguida da tecla RETURN. Esta linha pode ser 
substituída por INPUT A$. Faça-o e note a diferença. 

A linha 90 “guarda" o conteúdo da variável A$ 
(frase Introduzida) na variável B$ para que as letras pos- 
sam ser embaralhadas posteriormente sem que a frase origi- 
nal seja perdida. 

A linha 100 armazena o comprimento da frase na 
variável Cea linha 110 testa se este á maior que 35. Em 
caso positivo, o programa recomeça. 

As linhas 120 a 180 executam o embaralhamento 
das letras. Inlclalmente á definido um laço entre as li- 
nhas 120 e 180 para que o algoritmo de permutação dos ca- 
racteres seja executado tris vezes o comprimento (C) da 
frase Introduzida. 

0 algoritmo em si (linhas 130 a 170) consiste em 
"sortear" dois números compreendidos entre 1 e C (linhas 
130 e IRO) e assumi-los como posições na "string" 8$. Es- 
tas posições são Invertidas (linhas de 150 a 170). 

A vantagem desse procedimento á produzir uma va- 
riável B$ que contenha os mesmos caracteres que a variável 
A$ , permutados e sem repetições. 

As linhas de 190 a 300 preparam a tela que apre- 
senta o anagrama (variável B$). o número de erros (E). e 
pede a introdução das letras para a decifração da frase. 



A s linhas de 310 a 370 testam se a letra intro- 
duzida (armazenada na variável C$ ) se encaixa no lugar 
correto (linha 320). Caso positivo, a letra é Impressa 
(linha 350). o contador de posições (I) é Incrementado 
(linha 360) e se a última posição não tiver sido atingida 
o programa pergunta pela próxima letra (linha 370). No ca- 
so da -letra introduzida não se encaixar no lugar correto, 
é Incrementado o contador de erros (linha 330) e o progra- 
ma é desviado para a linha 2S0 para que o número de erros 
seja Impresso e novamente seja pedida a introdução de uma 
letra. 

Finalmente as linhas 380 e 390 estabelecem a es- 
pera da pressão de uma tecla para o programa recomeçar 
( linha 400 ) . 



42 


TWO LINERS 


(grafico) ^ 



INSTRUÇÕES 

Um TWO-LINER é um programa com apenas duas li- 
nhas . 

Isso não é nada difícil de ser feito. Veja o 
programa a segulri 

.10 INPUT"Qual o seu nome",n% 

20 PRINT n<6: GOTO 10 

Ele é um TWO-LINER, porém extremamente patétlcol 

Fazer um TWO-L INER é féc I II 

Difícil é conseguir que ele gere efeitos sofls- 
t içados no mi cro I 

Os programas apresentados mais adiante são TWO 
LINERS de primeira categoria, gerando figuras complexas e 
sof I st i cadas no ví deo. 

Há fundamentalmente tres parâmetros que permitem 
julgar a qualidade de um programai 

* O resultado final obtido através dele; 

* A quantidade de memória que ele utiliza e 

* 0 tempo que ele leva para ser executado. 

Os resultados finais dos TWO-LINERS apresentados 
a seguir, vocã mesmo poderá juigarl 

A memória ocupada por cada um deles é. certamen- 
te. menor que 1/2 kbyte (512 bytes). Na verdade, a maioria 
deles ocupa bem menos que Isso (por volta de 256 bytesl). 

O tempo de execucão é que. às vezes, se torna 
demasiado longo. Isso, entretanto, ocorre com a maioria 
das máquinas de oito bits quando rodam programas em BASIC 
e é difícil realizá-los em tempos menores. 
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Não há nenhum segredo em suas utilizações. Basta 
digitá-los e executá-losi 

Se a execução demora'' muito, faca alguma outra 
coisa enquanto espera. Por exemplo vá lendo a análise e 
tentando entender o funcionamento dos programas. 

DIGI TACaO 

Eétes programas possuem muitas instruções inseridas 
numa mesma linha e separadas por dois pontos (:). Tome 
multo cuidado para não pular algumas delas, pois Isso pode 
alterar totalmente os efeitos produzidos. 

Os programas são curtos. Em cinco minutos você 
digita qualquer um deles. Vale a pena tomar um pouco mais 
de cuidado durante a primeira digitação para não perder 
tempo procurando eventuais erros depois. 

TWO-UNER 1 - CIRCLINE 

10 SCREEN 2 

20 CC = i28:LC=80:R = 60: FORT = 0TO359STEP5 s G 
G=2+i4#RND<-TIME> : X=T*3 . 1 41 592H/ 180 : C=C 
C+R#COS(X) !L=LC + R»SIN(X) :l_INE<CC,LC)-(C 
,L) ,GG,B :NEXT:GOTO20 


TWO-LINER 2 - CORES 

10 SCREEN2 

20 FORF=0TO125STEP10:G=80-F*80/i25:Gi=2 
+14#RND(-TIME) :G2=2+14#RND(-TIME) *G3=2+ 
14*RND < -TIME ) :G4=2+14#RND< -TIME) :LINE<F 
, 80 ) - ( i 25 r G) r Gi,BF:LINE(125,G)-(250-F,8 
0) ,G2 r BF:LINE(F,80)-( 125, 160-G) ,G3,BF:l. 
INE( 125, 160-G)-(250-F,80) , G4 , BF : NEXT : GO 
TO20 




TWO-UNER 3 - CESTO 

10 SCREEN2:P=3. 14 15926H: Cl RCLE( 128,30) , 
60, , , , 20/60 :CIRCLE( 128, 160) ,60, , , ,20/60 
:FORD=0TO2#PSTEP . 1 5 : E=D+P/2 : X= 1 28+60*CO 
S(D) :Y=30+20*SIN(D) :S=128+60*COS<E) :T=Í 
60+20»SIN(E) :LINE(X, Y)-(S,T) :NEXTD 
20 GOTO 20 




TWO-LINER 4 - ASTRÓIDE 1 (Rede) 

\ 1 0 SCREEN2! FORF=0TOi 25STEP 10 s G=B0-F#80/ 
■% t 125:LINE(F r 80>-<i25,G>:LINE<i25 r G)-<250 
? -F , 80 ) s LINE <F,80)-(125,160-G) : L I NE ( 125, 
~ | 160- G)-(250-F,80) SNEXT 



TWO-LINER 5 - ASTRÓIDE 2 (Tela) 

A í 10 COLOR 1,14,14: SCREEN2 : P = 3 . 14 15926H : FO 
9 I RA=i0TO85STEP15:U=128+A:V=85:FORT=0TO2* 
\ PSTEP .25 X=i28+A# < COS ( T ) *3 > s Y=85+A# ( SIN ( 
« l T) a 3>:LINE<U,V>-<X,Y>:U=X:V=Y:IFA=85THE 
\ NL INE ( 128 , 85 ) - ( X , Y ) 

® | 20 IFA=i00THEN20ELSENEXTT,A:GOTO20 
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TWO-lINER 6 - ASTRúlOE 3 (Estrela) 

I 10 COLOR10, 1 :SCREEN2:P=3. 14i5926tt:C=2#P 
i :l=P/20:FORF=iTO5:READX(F) r Y(F) SNEXTSDA 
T A0 , 100,35,35, i 00 ,0,35 ,-35, 0, -100: FORH= 
0TO1 :FORA=0TOPSTEPI : F0RF=iT05 : X=X < F > *CO 
S(A) : Y=Y(F) : S=X : X=-X* < H< >1 >-Y»(H=i ) :Y=- 
Y#(H< >1 >-S*<H=i ) :X=INT(X> :Y = INT(Y) :GOSU 
! B20 : NEXTF , A , H 

20 IFH=2THEN20ELSEU=X# . 9+128 : V=Y # .9+85 : 
IFF = 1 THENK =U : L=V : RETURN : ELSELINE ( K , L ) - ( 
U,V> :K=U:L=V:RETURN 



(D cm 


TWO-LINER 7 - DRAWLIPSE 

10 COLOR 1,8,8:: SCREEN2 : FOR A=0T 06 . 28STEP 
. 1 : PSET ( 128+50* COS (A) , 85+20#SIN(A> ) : DRA 
W"nu50nf50nd50ng50":NEXTA: CIRCLE < 128,34 
> ,50,1, , , .4:CIRCLE<128,135> ,50,1,,, .4 «C 
IRCLE( 128,85) ,50,1 , , , . 4 : CIRCLE ( 77 , 1 35 ) , 
50,1 , , , .4:CIRCLE( 178, 135) ,50,1 , , , .4 
20 GOTO 20 



TWO-LINER 8 - ESFERA 

i 10 COLORI ,7, 7:SCREEN2:FORB=80TOiSTEP-10 
® : CIRCLE ( 128,80) ,80,1, , ,80/B «CIRCLE (128, 

80) ,80,1, , ,B/80:NEXTB:LINE(128,160)-<12 
,0) :LINE< 48, 80 >-<208,80) 

0 GOTO 20 
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TWO-LINER 9 


MONTES 


I 10 COLOR 4,7,7s SCREEN2 s FORX=0TO19i : Xi=Xi 

• : +255/191 sP=Xl#ATN< i ) /45*360/255#3 s Y=COS 
S <P)*130+128:LINE<Xl,0>-<Y r X> :NEXTX 

# ! 20 GOTO 20 


TWO-LINER 10 - TECIDO 1 (Enrugado) 

10 COLORI , 14, 14 :SCREEN2:FORF=0TO25.2STE 
P . 05 :A=A+.5!LINE< 255 ,0)-<A,SIN(F>#50+90 
) :LINE (255,0 >-<A-. 5, SIN(F) *50+88) ,14 :NE 
XTF 

20 GOTO 20 


TWO-LINER 11 - TECIDO 2 (Torcido) 

! 10 IFA=i92THEN10ELSECOLOR4 r 7,5:SCREEN2: 
& ; FORA=0TO19i:B=A#ATN<l>/90#360/255«4:C=C 
i +255/191 :D=C*ATN< 1 > /90«360/255*3 
^ ! 20 E=SIN < B > *85+85 1 F*COS <D)#127+127sLINE 
I <C r E)-<F,A> íNEXTAíGOTO 10 
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TWO-LINER 12 - FOUR I ER 

1 COLOR 15, 12,12:PI=3.14i592tt:lFSTRIG<0> 
< >-iANDP< >0THEN1 

2 P=P+i :SCREEN2:CIRCLE( 128,85) ,84, i:PAI 
NT( 128, 168) , 1 :FORX=55TO20O:Z=0:C=-X«<X= 
55 ) -C* ( X< >55) : F0RM=1T0PSTEP2 s Y=80/ < M#P I 
)#SIN(X*h*PI/36) :Z=Z+YSNEXTSY=Z+85:L=-Y 
*<X=55)-L«<X< >55) :LINE(C,L)-(X,Y) , 15: PS 
ET(X,Y) :C=X:L=Y:NEXT:P=P+l:GOTOi 





4 5 



Este TWO-LINER faz com que a tela se assemelhe 
ao visor de um osciloscópio. 

Ao ser executado, ele permite visualizar a forma 
da onda resultante da soma dos harmónicos ímpares de uma 
frequência qualquer. A primeira imagem é a do primeiro 
harmónica; a segunda é a da soma do primeiro com o ter- 
ceiro harmônico; a terceira é a soma do primeiro com o 
terceiro e com o quinto harmônico; e assim por diante... 

Para mudar de uma imagem para outra digite a 
barra de espaços. 
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COGUMELO 1 


TWO-LINER 13 

10 SCREEN2 

20 FORZ=0TOi0STEP . i :FORX=0TOi0STEP . i :Y= 
- ( COS ( 3#SQR < <X-5)#(X-5)+CZ-5>*<Z-5> ) ) >* 
5+30:PSET(X*24+Z,i9i-Y-Z#i0)sNEXTX,Z:GO 
T 020 


TWO-lINER 14 - COGUMELO S 

10 SCREEN2:FORZ=0TOi0STEP.2:FORX=0TOi0S 
TEP .2:Y=-10*COS(3*SQR ( ( X-5 ) #< X-5 ) + ( Z-5 ) 
j * ( Z-5 ) ) >/2+50:PSET<X*20+20+Z«3,Y+Z«i0> : 
NEXTX , Z 
70 GOTO 70 



TWO-LINER 15 - COGUMELO 3 

10 COLORI ,3,3: SCREEN2 : FORB=0TO127STEP2 : 
X4 = B #B :M=-i28:A=SQR ( 16384-X4) :FORI=-ATO 
ASTEP5:R=SQR<X4 + I*I)/128:F=C0S<9*R >*<i- 
R >*2:Y=I/5+F*32: IF Y < =MTHEN20ELSEh=Y : Y= 1 
28+Y:X=128+B :PSET(X, 191-Y) :X=128-B :PSET 
(X, 191-Y) 

20 IFP=iTHEN20ELSENEXTI,B:P=l :GOTO20 




TWO-lINER 16 - COGUMELO R 

10 COLORÍ ,5,5: SCREEN2: FOR B=0TO 127: X4=B* 
| B : M=- i 28 :A=SQR ( i 6384-X4 ) :FORI=-ATOASTEP 

3:R=SQR(X4+I*I>/Í28:F=C0S(Í6#R)#<Í-R)«2 
:Y=I/5+F*32: IFY< =MTHEN20ELSEM=Y :Y=i28 + Y 
:X=i28+B:PSET(X, Í91-Y) : X=i28-B : PSET ( X , i 
91-Y ) 

20 IFP = iTHEN20ELSENEXTI,B:P = i: GOT 020 





TWO-LINER 17 - ANÉMONA 

10 COLORI ,3,3: SCREEN2:P=3. 14 í 5926M:Q=2* 
P :R=P/20:S=P/i0:T=60:U=i50/Q:FORB=0TOQfí 
TEPR :C=1 #P/Í80:C=<B >P >«C-(B<=P )#C:FORH= 
0TOQS7EPS:Y=COS(H)*42:X=COS(B)«H*U:Z=-( 
SIN<B>=1 >«H#U-(SIN<B)< > i ) #TAN < B ) #X : Z=AB 
S(Z) :Z=-iE-03#(Z=0>-Z*<Z< > 0 ) : J=SQR ( Z«Z + 
Y»Y> : A=ATN(Y/Z)+C • 

20 IFF=iTHEN20ELSEY=J*SIN(A) :X=INT(X) :Y 
= I NT (Y) :XP=X#.7+Í28:YP=Y#.7+85:X0=-X0#( 
H< >0>-XP* rtí=0) :YO=-YO«<H< >0 > -XP * < H=0 > : L 
INE(XO, YO)-(XP,YP) :XO=XP:YO=YP :NEXTH,B: 
F= i : GOT 020 
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ANÁLISE 


Não iremos detalhar o funcionamento de cada um 
dos programas. Todos eles envolvem um certo conhecimento 
de matemática elementar e. na verdade, são bastante sim- 
ples. 

Se você tiver uma boa e sólida formação matemá- 
tica ao nível do segundo grau e conhecer bem o BASIC MSX, 
poderá compreender sozinho os TWO-LINERS. Caso contrário, 
por mais que tentássemos, nas poucas linhas de que dispo- 
mos. não conseguiriamos fazê-lo entender a maioria delesl 

O resultado da maioria dos TWO-LINERS apresen- 
tados são figuras interpretadas pelo nosso cérebro como 
superfícies bidimensionais. Há duas formas de se gerar 
esses efeitos. Uma 6 artificial, fazendo de fato um dese- 
nho num plano (os ASTRÔIOES. o CESTO. a ESFERA, o 
DRAWLIPSE. os MONTES. etc...) e nesse caso a execução é 
rápida, pois poucos cálculos são executados. A outra forma 
é projetando, através de sua equação, uma superfície real- 
mente bidimensional no plano da tela. Isso é bem mais tra- 
balhoso e em geral demora muito mais tempo (os COGUMELOS, 
a ANÉMONA, etc. . . ). 

Outros TWO-LINERS geram figuras no próprio plano 
da tela e são normalmente mais simples (CIRCLINE. FOU- 
R I ER ) . 

Para tentar compreender um TWO-LINER. é conve- 
niente decomp8-lo em várias linhas, de modo a facilitar a 
análise individual de cada instrução. Tente fazer Isso com 
alguns deles, por exemplo, com a ESFERA l 

Outra Importante técnica (empírlcal) para Iden- 
tificar as partes principais de um TWO-LINER á Ir alteran- 
do um a um seus valores numéricos ou suas funções. Experl- 
mete fazer as seguintes alterações, uma de cada vez. no 
TWO-LINER 14 (COGUMELO 2). 

» Troque a função COS pela função SIN. 

* Troquei 


Z«10 

por 

Z*1 5 

; 

+ 50 

por 

+ 10 


.2 

por 

.1 

e 

+20 

por 

+ 10 



Agora. tente esta alteração no TWO-LINER 4 (RE- 

OE ). 

* Troque STEP10 por STEP5 . 

No TWO-LINER 5 (TEIA), experimente esta. 

* Troque “3 por *5 

E. no TWO-LINER 3 (CESTO), tente estas. 

* Troque P/2 por P/1.5 

* Troque P/2 por P/1 
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Agora é a sua vez de propor (e realizarl) al- 
terações. Comece pelo primeiro programa e siga até o úl- 
timo. 

Oepols. terá chegado a hora de você fazer seus 
próprios TWO-LINERS. I n I c I a I me n t e . faça o programa em vá- 
rias linhas. A seguir, compacte-o em apenas duas. Isso. ao 
contrário do que parece, não é multo simplesl Para certl- 
ficar-se disso, digite e execute algumas vezes o THREE- 
LINER Pétalas. Depois, tente transformá-lo num TWO-LINER! 
Se você colnsegulr. avlse-nosl Isso é extremamente difí- 
cil I I r 

THREE-L I NER 1 - PÉTALAS 

Í0 INPUT"Quantas petalas";P s INPUT"Com r 
ot ac: ao < s/n ) " ? Aí : P 1=3. i 41592H : Q=>2«P 1 8 CO 
LOR 1 , 8 , 8 s SCREEN2 : Nl=5 ! N2=4 sFORV=iTOí 0 s I 
“V»P 1/30# ( A5="s" ) !Mi=Nl#Vs M2=N2#V s FORF= 
0TOQSTEPQ/Í80 5 A=F-I :S=ABS(SIN(F#P/2) ) :R 
==S#Mí .+M2:X=COS<A)*R:Y=SIN<A>*R:GOSUB30! 
X=INT(X) :Y=INT(Y) 

20 IF IP= i THEN20ELSENEXTF : GOSUB30 : NEXTV s 
IP = Í s GOTO 20 

30 XP = X* . 9 + Í28 s YP = i 91- < Y# . 9 + 85 > s IFF-0TH 
ENX i=X : Yi=Y : XO=XP s YO=YP s RETURN20 ! ELSELI 
NE < XO , YO ) -- ( XP , YP ) : XO=XP : YO-YP ! RETURN 




Este programa pede a Introdução de duas infor- 
mações! o número de pétalas e se elas devem ser rotaclo- 
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nadas ou não . 

Experimenta as 

NÚMERO OE PÉTALAS? 

5 
8 
9 
1 1 


seguintes combinações. 

ROTAÇÃO? 

não 
s i m 
nãc 
s im 


Um caminho mais fácil para começar a fater TWO- 
LINERS. principalmente se você é bastante egocêntrico, é 
comecar com programas do tipo EGO . Experimentei 

TWO-LINER 18 - EGO 

l j Í0 SCREEN2 : PSET (90,80) :DRAU"fidi0gibni+í 
\ ® | r -iír 2 fíd 3 gil 2 r 2 dífid 2 fíribm+ 2 , -2r íuih í 
gid2f iribm+i r -4fid3u3eif id3ribm+i ,-4r if 
| ; id3r i 1 Íu212d2r2bm+2 r -9d0f ibm-3 , -ór 4bm+l 

® j r -*2gld2fieiu2híbm+9,-3hil2gid2fír2fid2g 
il2hibm+9,-6d6fir2eíu6hil2gibm-3,+7r0bn> 
j © ; +9,0r0" 

í 20 GOTO 20 
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INSTRUÇÕES 

Você se encontra num lugar repleto de armadi- 
lhas. Só existe uma saída, que você não vê. e sua missão é 
encontrá-la o mais rapidamente possível. 

Para que a saída sei a atingida. você deve co- 
letar as quatro pilhas que estão espalhadas em pontos a- 
leatórios da tela. Elas servirão para alimentar o seu re- 
ceptor e. quando a última for apanhada . você passará a re- 
ceber sinais que são emitidos constantemente por um micro- 
transmissor instalado na saída. Esses sinais são decodifi- 
cados por seu receptor que informa a direção a seguir. Na 
parte inferior da tela aparecem as palavras NORTE ou SUL e 
LESTE ou OESTE. Por exemplo, se surgirem as Informações 
SUL e OESTE, significa que a saída está abaixo e à esquer- 
da da posição ocupada por você. Caso essas palavras não 
apareçam. isto quer dizer que você está na direção corre- 
t a . 

Com relação ao contador de tempo, ele funciona 
como um taxímetro. Se você ficar parado numa determinada 
posição, ele não pára. Caso você se mova. ele se adianta 
em dez unidades para cada posição avançada. Convém, por- 
tanto. planejar o caminho mais curto e mais rápido para 
alcançar as pilhas e depois a saída. 

Para se movimentar utilize as teclas de setas. 
Cuidado para não esbarrar em qualquer uma das armadilhas 
enquanto estiver se movendo pois. nesse caso. você fica 
preso e o jogo termina. 

Quando você alcançar a saída, o contador de tem- 
pn pára e o programa checa se o recorde foi batido. Desta 
forma, o jogo acaba e a pressão da tecla "R" o reinicia. 
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DIGITAC20 

Digite o programa exatamente conforme a lista- 
gem. Você não deve encontrar grandes dificuldades. 

Confira-o e grave-o em fita com o comando CSAVE 

"SA 1 NV" . 

Comande RUN e boa sorte' 

1 REM, SAIDA INVISÍVEL 
10.J3OSUB 740 

20 MAXF I L..ES-- í : OPEN"GRP=" FOR OUTPUT A 
S Ml. 

30 DIM M ( 20 ,16) : SCREEM 2,0 
40 RE- 9999 : D*-"R7D7L7U7BF2R3D3L3U3" : 
A % ~"R 6 D 6 L 5 U 4 R 3 1) 2 L í " 

50 SP R I TE* ( i ) —Cl IR * ( 0 ) +CHR ‘li ( 24 ) +CHR % ( 60 ) 

* Cl IR % ( 60 ) f Cl IR % ( 60 ) ♦ Cl IR <li ( 60 ) + Cl IR % ( 60 ) +CH 
R*(0) 

60 SP R I TE* ( 2 ) -Cl IR % ( 60 ) * Cl IR * ( 66 ) ♦ Cl IR 'li ( 1 6 
5 ) f C 1 1 R 'li < 1 2 9 ) * C H R S < i 65 > » C H R *(153)»- C I I R <li ( 6 
6 ) +CIIR* ( 60 ) 

70 SCREEN 2 : COLOR 15,1,1 : CLS 
80 TE-0 : PI=0 : TT=0 : U=0 
90 FOR 1=8 TO 240 STEP 8 
100 PSET ( I , 24 ) , 0 : COLOR 5 s DRAU D* 

110 PSET (1, 160) ,0 : COLOR 5 : DRAU D* 
120 NEXT I 

1 # j 130 FOR 1=32 TO 152 STEP 8 

j 1^0 PSET ( 8 , I ) , 0 : COLOR 5 : DRAU DS 

! m i Í50 PSET (240, I ) ,0 : COLOR 5 : DRAU DS 

i 160 NEXT I 

! * i 170 PSET (72,0) , 0 : COLOR 8 s PRINT H1.,"S 
í; <í:í j A IDA INVISÍVEL" 

\ 180 GOSUB 620 

l m i 190 GOSUB 610 

200 Q-INT ( RND ( TIME ) #1. 000 ) + 1. 

210 FOR K=i TO 65 
220 X-INT (RND <Q)#27)+2 : I=X*8*8 
230 Y=INT<RND<Q>*i6)+i : J=Y*8+24 
240 IF M ( X , Y ) O 0 THEN 220 
250 IF K < 61 THEN M(X,Y>=5 ELSE GOTO 2 
i $ 80 
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; 260 P Sb 1 ( I , J ) , 0 : COLOR 8 : DRAW Al 
! 270 GOTO 320 

j 200 IF K < 65 THEN M(X,Y>= K-60 ELSE G 
I OTO 310 

i 290 PUT SPRITE M(X,Y>,(I,J),ii,i 
I 300 GOTO 320 

i 310 XS=X : YS = Y : M(X,Y >=6 
: 320 NEXT l< 

: 330 X=1 = Y= 1 1 = 16 : J=32 

! 340 PUT SPRITE 0,(I,J),7,2 
j 350 IF INKEY4="" THEN 350 
! 360 T =STICK ( 0 ) 

I 370 IF T=i OR T=3 OR T=5 OR T=7 THEN 41 

; 0 

j 300 w=w* 1 

I 390 IF W : -5 THEN TE=TE+i = GOSLJB 610 : U 

| “0 

i 400 GOTO 360 
I 410 TE=TEH0 s GOSUB 610 
j 420 IF T=i AND Y-i > 0 THEN Y=Y-Í : J=Y 
i *0+24 : GOTO 460 

I 430 IF T=3 AND X+i <= 28 THEN X=X+í : I 
I = X * 0 *0 : GOTO 460 

i 440 IF T»5 AND Y+i <= 16 THEN Y=Y+i s J 
! =Y*8+24 : GOTO 460 

| 450 IF T =7 AND X--Í > 0 THEN X=X-i : I=X 
| * 0+0 

; 460 PUT SPRITE 0 r (I,J) r 7,2 
! 470 IF M < X , Y ) =5 THEN PLAY"T255L64CDEFGC 
! DEFGCDEFGCDEFGCDEFG" : GOTO 730 
j 480 IF M < X , Y > > 0 AND M(X,Y)<5 THEN PLAY" 
j T255L64BEB" : GOSUB 630 
490 IF P 1=4 THEN GOSUB 650 
500 IF TT=i THEN PLAY"T255L64CDEEFEFCAC 
I A" : GOTO 520 
i 510 GOTO 360 

j 520 IF RE > TE THEN RE=TE : GOSUB 620 
i 530 LINE <88,88)-< 175,95) ,Í,BF 5 PSET(8 
i 0,00) g 0 : COLOR 15 : PRINT Ml, "FIM DO J 

I ono" 
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| 540 FOR X=1 TO 28 
550 FOR Y=i TO 16 
j 560 M ( X , Y ) =0 
| 570 NEXT Y : NEXT X 

580 PSETC0, 184) ,0 : COLOR 15 : PRINT Hl 
i Aperte a tecla R para reconiEcar." 
j 590 IF INKEYí <> "R" THEN 590 
! 600 GOTO 70 

! 610 CINE<216,16)-(247,23),i,BF : PSET< 
| 168,16), 0 : COLOR 2 : PRINT Hi,USING"TE 

j MPO : HHMH" ; TE : RETURN 

i 620 LINE<72, 16)-< 103,23) , 1 ,BF : PSET(8, 
16) -0 : COLOR 2 : PRINT Mi , USING"RECORD 
j E:MMMM",-RE : RETURN 

j 630 PI=PI + 1 : PUT SPRITE M < X , Y ) , < I , Y ) r 0 
: ,1 : M ( X , Y ) =0 : IF PI=4 THEN PLAY"T255L 

j 64CAC" 
i 640 RETURN 

: A50 IF X < XS THEN LINE < 1 76 , 1 68 ) - ( 2 1 5 , 

j 175),1,BF : PSETí 176, 168) : COLOR 2 : P 
] RINT M 1 , "LESTE" 

; 660 IF X = XS THEN LINE ( 176 r 1 68 ) - ( 2 1 5 , 
i 175) , 1 ,BF 

í 670 IF X > XS THEN LINE ( 1 76 , 1 68 ) - ( 21 5 , 
175 ) , 1 , BF : PSET( 1 7 6, 168) : COLOR 2 : P 
j RINT Mi, "OESTE" 

680 IF Y > YS THEN LINE ( 40 , 1 68 ) - ( 79 , 1 7 
j 5),i,BF : PSET<40,168) : COLOR 2 : PRIN 
! T Mi, "NORTE" 

690 IF Y = YS THEN LINE < 40 , 1 68 ) - ( 79 , 1 7 
i 5 ) , 1 , BF 

I 700 IF Y < YS THEN LINE <40, 168>-<79, 17 
5 ) , 1 , BF : PSET (40,168) : COLOR 2 : PRIN 
| T H 1 , S U L" 
j 710 IF M < X , Y ) =6 THEN TT=i 
i 720 RETURN 

j 730 TE=9999 : GOSUB 610 : GOTO 530 

i 740 CLS : COLOR 4,1 : KEYOFF 

i 750 SCREEN 0 

; 760 LOCATE 12,5 




770 PR INT"SAiUA INUISIVEL" 

780 LOCATE 5,1 7 

790 PR INT"Aper t e uma letra para comecar 

// 

■ ■ ■ 

800 IF INKEY$="" THEN GOTO 800 
810 RETURN 


ANALISE 


A Idéia fundamental do programa é mapear a tela 
associando a cada uma de suas posições um elemento de uma 
matriz de 28 colunas por 16 linhas ( M( 28 . 1 6 ) ) . A posição 
da tela que estiver livre tem. como correspondência na ma- 
triz. um elemento igual a zero. A posição que contiver uma 
armadilha assume o valor igual a 5< as que contiverem as 
pilhas recebem os valores 1 a 4 e a que contiver a saída 
terá valor Igual a 6. Isso facilita as tomadas de decisões 
lógicas do programa. Além disso as coordenadas da saída 
são armazenadas nas variáveis XS e YS. 

A linha 10 do programa o remete a uma sub-rotlna 
de apresentação (linhas 740 a 830) cuja função é tornar a- 
leatório o instante em que a execucão do programa propria- 
mente dito comeca. Assim, a variável TIME. que será utili- 
zada na linha 200. realmente assume um valor qualquer. Se 
Isso não fosse feito, o tempo que recorreria desde o Ins- 
tante em que o comando RUN fosse ticionado até a execucão 
da linha 200 seria sempre o mesmo, e o padrão da tela a 
ser construído seria sempre repetido. 0 jogo perderia a 
"graça” pois, após rodá-lo algumas vezes, você já saberia 
de cor onde está a saída. 

A linha 20 abre um arquivo na tela de alta reso- 
lução para que passamos escrever nela posteriormente. 

A linha 30 dimensiona a matriz de posições da 
tela e seleciona a tela de alta resolução apenas para que 
os SPRITES possam ser definidos nas linhas seguintes. 

A linha 40 atribui o valor inicial ao recorde 
(variável RE) e define as cadeias de caracteres que serão 
posteriormente utilizadas como argumento da Instrução 
ORAW. 

As linhas 50 e 60 definem respectivamente os 
SPRITES correspondentes ao desenho de uma pilha e de uma 
cara sorridente que representará o jogador no programa. 

A linha 80 zera o contador de tempo (variável 
TE), o contador de pilhas já coletadas (variável PI), a 
"flag" que testa se a saída foi at I ng i da ( var i á ve I TT ) e a 
variável retardadora do avanço de tempo enquanto, durante 
o jogo. você estiver pa .':do em alguma posição (variável W). 

Os lacos definidos entre as linhas 90 e 160 têm. 
por finalidade, desenhar a moldura. 

A linh? 170. utilizando o arquivo aberto na li- 
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nha 20 . escreve o título do jogo na tela de alta resolução. 
A função da instrução PSET empregada nessa linha é Indicar 
a posição do vértice superior esquerdo do campo referente 
ao primeiro caractere a ser impresso. 


Oltimo PSET antes do 
primeiro PR I NT « 1 "S... 



As linhas 180 e 190 remetem a execução às sub- 
rotlnas que Imprimem respect i vemente o RECORJE e o TEMPO. 
Além da técnica jé usada na linha 170 (uso do PSET), elas 
pintam previamente com a cor de fundo (preto), a região 
onde os valores são impressos. 

A linha 200 sorteia, aleatoriamente, um valor 
entre 1 e 1000 que servirá de argumento para a função RNO 
utilizada na "construção” da tela. 

As linhas entre 210 e 320 "espalham" aleatoria- 
mente 60 armadilhas. 4 pilhas e uma saída na tela. No laco 
definido por essas linhas, são também atribuídos os valo- 
res 5. 1 a *1, e 6 para os elementos da matriz de posições 
(M(X.Y)) que conterão as armadilhas, as pilhas e a saí- 
da. respect I vamente . Note que os valores atribuídos aos 
elementos da referida matriz correspondentes às pilhas são 
também os números da camada (1 a «1) em que o SPRITE rela- 
tivo à pilha é colocado (linhas 280 e 290). Essa técnica 
é fundamental para que. posteriormente, o programa possa 
"reconhecer" a camada em que se encontra a pilha alcan- 
çada pelo jogador e possa apagá-la na tela. 

Nas linhas 220 e 230 são calculados os valores 
das variévei» I e J que se correspondem com as coordenadas 
X e Y. respect I vamente . A diference entre o par (X.Y) e o 
par (I.J) é que o prlm»lro define uma posição da matriz 
M(X.Y) e corresponde na tela de alta resolução a 8x8 pon- 
tos. enquanto que o segundo define a posição do ponto de 
alt? resolução da tela correspondente ao vértice superior 
esquerdo do par (X.Y). 

A linha 330 atualiza as coordenadas em (1.1) na 
matriz e (16.32) na tela. Elas são relativas ao canto 
superior esquerdo da tela. A linha 340 coloca você 
( SPR I TE$( 2 ) ) na camada 0 e nas coordenadas atuais, e a li- 
nha 350 "espera" que uma tecla seja pressionada para que o 
jogo comece. 
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A linha 360 armazena na variável T o estado das 
teclas de seta pressionadas. Se nenhuma seta for digitada, 
a variável W é Incrementada, e quando atinge o val.or-5. o 
tempo sofre o acréscimo de uma unidade ( I Inhas 380 a 40(^). 
Se. por outro lado. qualquer uma das setas for pressiona- 
da. o programa é desviado para a linha 410. que Incrementa 
o contador de tempo em 10 unidades. Entre as linhas 420 e 
450. testa-se se o movimento correspondente à seta digi- 
tada é ou não possível. Caso seja. as coordenadas da ma- 
triz (X.Y) e da tela <I.J) são atualizadas e você é repo- 
sicionado pela linha 460. 

A linha 470 verifica se a nova posição corres- 
ponde a uma armadilha. Em caso positivo o programa é des- 
viado para a linha 730 e o jogo termina. 

A linha 480 verifica se você alcançou uma pilha. 
Em caso positivo, será executada a sub-rotina 630. que in- 
crementa a variável PI (contadora do número de pilhas co- 
letadas) e "apaga" a pilha recolhida. reconhecendo o 
número da camada em que ela (SPRITE) se encontra, através 
do valor da matriz M(X.Y). A seguir, esse elemento é "ze- 
rado". para se tornar uma posição livre para movimento. 

No retorno da sub-rotina descrita acima, será 
verificado pela linha 490 se todas as pilhas já foram al- 
cançadas. Em caso afirmativo, será executada a sub-rotina 
650 que "liga" o seu receptor, imprimindo as direções a 
serem seguidas, e verifica se a saída foi atingida. 

Quando a saída for alcançada (TT=1). a linha 500 
toca algumas notas musicais e desvia o programa para a 
linha 520 que. por sua vez. verifica se o recorde foi 
batido. 

As linhas 530 a 600 finalizam o jogo. Entre elas 
há um laço (linhas 540 a 570) que "limpa" todas as posi- 
ções da matriz M(X.Y) para que o jogo possa recomeçar. 

Agora que você já sabe como o programa funciona 
em linhas gerais, experimente fazer algumas modificações. 

Por exemplo, tente definir novas figuras para 
construir a moldura e as armadilhas usando o comando DRAW. 

Tente também definir outros SPRITEs para as pi- 
lhas e para a cara que representa você no jogo. 

Outra modificação que você pode tentar fazer 
para tornar o jogo mais difícil é eliminar as Indicações 
de direção (NORTE. SUL. LESTE e OESTE). Nesse caso. as pi- 
lhas devem ser colhidas apenas para que a saída se torne 
acessível e a estratégia do jogo muda. você deve evitar 
passar mais do que uma vez num mesmo lugar. 
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INSTRUÇÕES 

Você é o piloto de um caca supersônico que está 
voltando à base. seriamente avariado apõs uma vitoriosa 
batalha. 

No caminho de volta. o caca acabou ficando sem 
combustível e comecou a perder altitude rapidamente. 

Sua única salvação é fazer um POUSO FORCADO numa 
pista inimiga que está abandonadal 

A cada segundo que passa seu caca supersônico se 
aproxima mais e mais da pista, que está cheia de obstácu- 
los. tornando quase Impossível qualquer tentativa de pouso 
sem que haja explosão do seu avião. 

Para conseguir pousar você terá que desobstruir 
a pista, lançando bombas sobre os obstáculos, até que ela 
fique totalmente limpa. Se você conseguir acertar os obs- 
táculos e deixar a pista limpa, sua aterrissagem será 
tranquila, caso contrário... 

Para lançar as bombas basta apertar a barra de 
espaços, mas devido ás avarias sofridas durante a batalha, 
seu caca s6 consegue lançar uma bomba de cada vez. 

Faca uma boa mira e bom pousolll 

DIGITAC20 

Para comecar a digitação do programa digite o 
comando AUTO 1000.10 . Com Isso o micro lhe fornecerá au- 
tomaticamente os números das linhas. Iniciando em mil e 
Indo de dez em dez. Você notará que com essa numeração a 
listagem de seu programa ficará mais estética. 

Preste muita atenção ao digitar cada linha, pois 
uma vírgula a menos ou a mais será o bastante para que o 
programa não funcione. 
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Ao terminar cada linha, verifique se ela está 
correta e se não estiver, volte com o cursor até o erro e 
corrija-o. Quando tiver certeza que a linha está totalmen- 
te correta, digite RETURN. 

Nesse instante o micro lhe fornecerá o número da 
próxima linha que deverá ser digitada. 

Após ter introduzido todo o programa. digite 
CONTROL+STOP para Interromper a numeração automática e 
grave o programa em fita com.- CSAVE''POUSO" + RETURN. 

Para Iniciar o jogo. basta comandar RUN+RETURN 
(ou a tecla F5). 

A única observação a ser feita está na linha de 
número 2350. onde o caractere, semelhante a uma árvore, 
que está após a primeira aspa que aparece, é obtido pres- 
sionando-se as teclas L GR A + □ 



1000 ’ 

1010 ' jogo : Pouso forcado 
1 020 ' 

1030 ' Rubens nov / 85 

1040 ' 

1050 WIDTH 40 
1060 DEFINI A-Z 
1070 MAXFILES = 1 
1000 X = R ND (-TIME) 

1090 ' 

1100 ' INSTRUÇÕES 
1110 ' 

1120 KEY OFF 
1130 SCREEN 0 r ,0 
1.140 COLOR 1,7,7 
1150 CLS 

1160 LOCATE 8,2,1 

1170 PRINT ">> POUSO FORCADO <<" 
1180 LOCATE 0,6,0 

1190 PRINT "Voce tem que fazer um "; 
1200 PRINT "pouso forcado num" 

1210 PRINT "campo inimigo onde "; 
1220 PRINT " foram colocados" 

1230 PRINT "vários obstáculos para"; 
.1240 PRINT " impedir o pouso." 

1250 LOCATE 0,11,0 

.1260 PRINT "Para desobstruir a 

1270 PRINT " pista voce deve" 
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1280 PRINT "lançar bombas sobre"? 

1290 PRINT " os obstáculos, ate" 
j 1300 PRINT "que a pista fique"; 

! 1310 PRINT " totalmente limpa." 
j 1320 LOCATE 0,17,0 

| 1330 PRINT "Use a barra de espaço"; 

; 1340 PRINT " para bombardear ." 

I 1350 LOCATE 15,22,0 

j 1360 PRINT "TECLE QUALQUER TECLA "; 

I 1370 Xi = INPUTÍ(i) 

1.1380 ' 

| 1390 ' ROTINA PRINCIPAL 
j 1400 ' 

í 1410 SCREEN 2,0 

\ 1420 OPEN "GRP :" FOR OUTPUT AS Hl 
j 1430 GOSUB 1670 
j 1440 GOSUB 1860 
j 1450 GOSUB 2290 
I 1460 GOSUB 2420 
I 1470 COLOR 1 
| 1480 PRESET (60,20) 

i 1490 IF ICI="s" THEN GOSUB 1620 ELSE GO 
I SUB 1570 

j 1500 IF INKEYí <> "" THEN GOTO 1500 
I 1510 PRESET (60,60) 

! 1520 PRINT Hl, "TECLE QUALQUER TECLA"; 
j 1530 X% = INPUTÍ(l) 

: 1540 LINE (60,20)-(220,28),7,BF 
! 1550 LINE ( 60 , 6r ) -( 220 ,68) r 7,BF 
1560 GOTO 1450 
I 1570 ” 

! 1580 ' ATERRISSOU 
j 1590 r 

I 1600 PRINT Hl, "POUSO PERFEITO !!l" 

\ 1610 RETURN 

j 1620 ' 

j 1630 ’ COLIOIU 

i 1640 - 

l 1650 PRINT Ml, "SFU AVIAO EXPLODIU I" 

| 1660 RETURN 
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LER SPRITES 


! 1670. ' 

: 1600 ' 

I 1690 ' 

I 170O R ESTORE 

| 1710 FOR I = 1 TO 3 

1 7 2 0 Y<b = "" 

| 1700 FOR J = i TO 8 

i 1740 READ Xí 

1750 Y*D = Y9, + CMR«Í ( VAL < "&H"+XIi ) ) 

: 1760 NEXT J 

! .1770 SPR ITE1 < I ) =Y1 

i 1780 NEXT I 
1790 RETURN 
1800 ' 

j 1010 ' DEFINIÇÃO DOS SPRITES 

1020 ' 

1030 DATA 00, 40, 60, 70, 78, FF, 7F, 00 
I 4040 DATA 00,00,00, 1C,7E,FF,FF, 00 
i 1850 DATA 00,38, 10,38, 7C, 38, 10,00 

1060 ” 

1070 ' PAISAGEM 
| 1800 ” 

| 1090 l INE ( 0 , 102)- < 255, 191),i0,BF 
; 1900 ÇOR I = 105 TO 190 STEP 5 

; 1910 XI = 256 * RND(l) 

; 1920 X2 = 256 * RND(i) 

1930 LINE ( XI , I ) - < X2 , I > , 1 

j 1940 NEXT I 
i 1950 PSET (0,1 00), 12 

I 1960 DRAU "R4U2R4D1R5D1R4U1R2U1R4IJ1R 
1970 DRAU "LI1R4U1R2U2R5D1R2D1R2D1R5U 
1900 DRAU "R5U1R4U1R5U1R5U1R4U1R2E5U 
1990 DRAU "R1U3R2E4R2F5D4R3F3R8F2R7U1" 
2000 DRAU "R2U1R9F2R 1 E3R 1 E4R 4U3R3U2R5" 
2010 DRAU "E3R3U2R2U1R3DÍR2F4D3R3F4D3" 
I 2020 DRAU "R4F3R7D1R7D1R9E2R4F2R2E3R2" 
j 2030 DRAU "F3R4F2R4D1R8D1R6D1R7D2R5" 
i 2040 FINE (0, 102) -(255, 102) ,12 
I 205O PA] NT (0,101), 12 
! 2060 PSET (56, 101), 2 
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j 2070 DRAU "R4U2R4D1R5U1R4D1R2UÍR4UÍR3" 

| 2080 DRAU "UÍR4U1R2U2R5D1R2D1R2DÍR5D2" 
í 2090 DRAU "F2" 

I 2100 LINE <0, 102)- (255, 102) f 2 
j 2110 PAINT ( 80 , 100 ) r 2 
\ 2120 PSET (190,101), 2 

í 2130 DRAU "R4U2R4D1R5UÍR4D1R2U!R4U1R3 ,/ 

| 2140 DRAU "UÍR4UÍR2U2R5DÍR2DÍR2D1R5D2" 

\ 2150 DRAU "F2" 

: 2160 PAINT (200,101) ,2 
! 2170 CIRCLE (25, 20), 8,11 
! 2180 PAINT (25,20), 11 
! 2190 LINE (128,5)-(i50,6),i5,BF 
! 2200 LINE (i24,7)-(i5B,8),15,BF 
| 2210 LINE (131,9)-(147,10),15,BF 
' 2220 LINE (Í8O,45)-(200,46),14,BF 
! 2230 LINE ( 175 , 47 ) - ( 204 , 48 ) , 14 , BF 
• 2240 LINE (180,49)-( 202 ,50),14,BF 
! 2250 PSET (30, 160), 14 
I 2260 DRAU "R 150E20L150G20" 

! 2270 PAINT (40, 159), 14 
j 2280 RETURN 

í 2290 ' 

I 2300 ' OBSTÁCULOS 

i 2310 r 

! 2320 LINE (58, 143)-( 180, 152) , 14 ,BF 

i 2330 AV<6 = "" 
i 2340 FOR I = 1 TO d 

i 2350 IF RND ( 1 ) > .5 THEN AVÍ = AVÍ + 

[ " 4 " ELSE AVÍ = AVÍ + " " 

I 2360 NEXT I 

! 2370 IF AVí=STR ING5 (16,32) THEN GOTO 23 

I 30 

| 2380 COLOR 13 

! 2390 PSET (60, 145), 14 

2400 PRINT Mi , AOí 
2410 RETURN 
2420 ' 

2430 ' ROTINA DO JOGO 
2440 ' 
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2450 YA=10 
2460 X A=0 
i 2470 TB*="N" 

•!. 2480 ON STRIG GOSUB 2960 
! 2490 STR IG ( 0 ) ON 

! 2500 XA=XA+5 : IF XA > 240 THEN XA=0 
i 2510 IF XA MOD 10 = 0 THEN YA=YA+i 
! 2520 IF YA > 127 AND XA=0 THEN GOTO 2600 

I 2530 PUT SPRITE 15 , ( XA , YA ) , 4 r i 
I 2540 PUT SPRITE 1 6 , < XA+8 , YA) , 4 , 2 
í 2550 XB=XB+4 : IF XB > 248 THEN XB = 0 
j 2560 YB=Y8+5 

j 2570 IF TB* = "s" THEN PUT SPRITE 17, (X 
> B , YB ) , 1 , 3 

2500 IF YB >140 AND TB*="s" THEN GOSUB 2 

800 

2590 GOTO 2500 
2600 ’ 

2610 ' ATERRISSOU 
2620 ' 

2630 STR IG ( 0 > OFF 
2640 IC* = "s" 

2650 FOR XA = 0 TO 35 
2660 PUT SPRITE 15, ( XA , 140 > , 4 , 1 

2670 PUT SPRITE 16 , ( XA+8 , 140 > , 4 , 2 

2600 NEXT XA 
2690 FOR XA = 36 TO 170 
! 2700 PUT SPRITE 15 , (XA, 140 ) , 4 , 1 

! 2710 PUT SPRITE 16 , (XA+8 , 140 > , 4 , 2 

j 2720 IF POINT (XA+16, 148) (> 14 THE 

! N GOTO 2760 
j 2730 NEXT XA 
j 2740 IC* = "n" 
j 2750 RETURN 
! 2760 ' 

| 2770 ' EXPLOSÃO DO AVIAO 

• 2780 ’ 

! 2790 FOR I = 1 TO 3 

| 2800 r 0R J = Ü TO 14 

j 2810 PUT SPRITE 15, (XA, 140) , J, 1 


68 



| 2820 PUT SPRITE 16, (XA+8, 140) , J r 2 

| 283© FOR K = 1 10 20 

I 2840 NEXT K 

I 2850 NEXT J 
I 2860 NEXT I 
2070 RETURN 
2880 ' 

2070 ' EXPL05A0 DA BOMBA 

2700 ' 

29 í 0 PUT SPRITE 17 , ( XB , YB ) , 0 , 3 
2920 TB! = "n" 

I 2930 IF XB >50 AND XB<175 THEN LINE <XB- 
4 , YB ) — ( XB + 12 , YB +12),i4,BF 
2940 STR IG ( 0 ) ON 
2950 RETURN 
2960 ' 

2970 ' LANÇAR BOMBA 

^?9O0 ' 

2990 STR IG ( 0 ) OFF 

3000 IF YA > i 12 THEN RETURN 

3010 XB = XA + 4 

3020 YB = YA + 8 

3030 TB! = "s" 

3040 PUT SPRITE 17 , ( XB r YB ) , 8 , 3 
3050 RETURN 


AN4LISE 

Se você quiser fazer algumas modificações, aqui 
vão algumas sugestõesi 

Caso você queira modificar a paisagem, esta é 
definida desde a linha 1860 atí a linha 2880. Tome cuidado 
com a cor da pista. que deveré ser necessariamente cinza 
(código 14) e não pode ser desenhada em outro local. 

0 desenho do avião e da bomba estão definidos 
nas linhas 1830.1840 e 1850. 

t Se você quiser colocar som no programa, por e- 

xe..iplo. o de explosão da bomba. pode colocã-lo entre as 
linhas 2880-e 2950. Outra sugestão é a de colocar música 
para quando o pouso for perfeito ou outra música para o 
impacto do avião ou. ainda, o som do motor do avião en- 
quanto ele. sobrevoa a pista. Veja o último capítulo 
(TWO-I.INERS SONOROS) pira se inspirar. 
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CH1PTR0N 



INTRODUCSO 

Estamos no ano de 3003 onde os esportes não exi- 
gem multa forca, mas sim reflexos rãpldos e multa veloci- 
dade. 

Neste ano. na OLIMPÍADA MSX. ocorrerá a mais al- 
mejada prova de todos os temposi o CHIPTRONI 

Essa prova se realiza numa arena circular onde 
dois TRONS devem dirigir suas motos sem se chocarem com as 
bordas, obstáculos ou rastros deixados pelas motos. 

0 objetivo de cada TRON é fazer com que seu ad- 
versário colida. 

Cuidado com as bordasl Em algumas partes existem 
escorregadores que são passagens diretas para a morte. 

As motos, ao partirem, acionam um contador de 
tempo que ao final será somado ao placar do vencedor. 

Para controlar as motos. use as teclas A.W.D.X 
(TRON esquerdo) e 2.4. 6. 8 (TRON direito). As teclas de co- 
mando são apenas para o controle direcional e não para a 
movimentação. 

Para Iniciar o jogo você deve acionar a tecla 
CAPS LOCK antes de comandar RUN ♦ RETURN ou F5. 


DIGITACao 


As linhas de 180 a 250. de 260 a 330. de 90 a 
120. de 400 a 530. e 370 e 380 devem ser digitadas como 
foi explicado no capítulo 1. para reduzir o tempo de 
d I g i tacão . 

As linhas 140 e 150 são Idênticas às linhas 350 


e 360. 


0 programa possui 103 linhas. 
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| 10 ' Chiptron 
1 20 GO SUB 8'50 

| 30 UZ=5:OX=VZ:PPX=0:PPZ=PX 
\ 40 COLORÍ 5, i 5, i 5 
} 50 SCREEN 2, r 0 
; 60 C I RCLEí 128,96) ,90, i 
i 70 POJNT ( 128, 105) ,1,1 
I 00 I [ME- 0 

? 90 CTRCLE< 128,36) , 10, 15 
\ 100 CIRCLE( 128, 156) ,10,15 
; 110 Cl ROLE <168, 96), 20, 15,,,. 85 
\ 1.20 CIRCLE(88 r 9ó) ,20,15, ,, .85 
| 130 X= : 120 s Y=96 ! Z=136 s U=Y 
í 1 40 PGET(X,Y> ,4 
i 150 PSET<Z,U>,6 

1 = 160 DX=3 : DZ = 1 

170 1.4=INKEY*8IF L*="" THEN 260 
180 ir L<ft*"4" THEN DZ=1 

190 IF L* as "8" TIIEN DZ=2 

200 ir L'B="6 // THEN DZ=3 

210 IT L3>="2" THEN DZ=4 

| 220 IF l'b~" C\" THEN DX=i 

230 IF L*»"U" THEN DX=2 

\ 240 1 F l.S="D" TIIEN DX=3 

| 250 IF 1*1, ="X" THEN DX-4 

I 260 IF DX=1 THEN X=X-i 
270 IF PX- 3 TIIEN X=X+i 
l 200 II DX~2 THEN Y=Y-1 
\ 290 IF I ) X 4 TIIEN Y=Y + i 
í 300 IF DZ=1 THEN Z=Z-1 
i 310 Jl l>Z~3 THEN Z = Z+í 
í 320 II PZ =2 THEN U=U-i 
! 330 II PZ 4 THEN U=U + i 
j 340 PX-P01 NT ( X , Y ) : PZ-POINT ( Z , U ) 
j 350 P8ET < X , Y ) ,4 
i 360 P'.»L I ( Z , U ) ,6 

i 370 IF PXOl TIIEN PUZ=PUZ+T IME+20 : GOTO 
í 400 

300 IF [701 TIIEN P YX = P YX+T IME + 20 s GOTO 

460 
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390 GO 10 170 

400 POR F= 1 TO 20 STEP 3 

410 CIRCLE < X , Y ) , F , RND< -TIME ) *15 

420 f>l AY"S8T255L60GFA" 

430 NEXT F 

440 VX--VX-1SIF VX>0 THEN 520 
450 GOTO 680 

460 FOR F~i TO 20 STEP 3 

470 CIRCLE (Z,U) ,F , RND ( -TIME ) *15 

480 PL AY"S8T255L60CAB" 

490 NEXT F 

500 VZ~VZ-i s IF VZ > 0 THEN 520 
510 GOTO 600 

520 GÓI OR 15,13, 13SKEY OFF 

530 SFPFEN 1 

540 PR IN T" MSX- Ch i p Tron" 

550 LOCATE 3,3 

560 PP INI" Jogador 1: Oi das Pontos" 

570 LOCATE 15,4 

500 PRINT VX : LOCATE 20, 4: PRINT PYX 
590 LOCATE 3., 9 

600 PR INT"Joyador 2: Vidas Pontos" 

610 l.OCATE 15, 10 SPRINT VZ:LOCATE 20,10: 
PRINT PUZ 

620 L.0CATE12,6:PRINT" TEMPO" 

630 LOCATE 12 , 7 s PR INTTIME 

640 LOCATE 1 , 22 :PR INT"A P ert e uma tecla 

para cont." 

650 IF I Nl< EY*i> < > "" TIIEN 650 
660 IF TNI<EY<6 = "" THEN 660 
670 GOTO 40 

600 KEY OFF : FOR F=1 TO 14 STEP 2 

690 COLOR F,F+i,F-i 

700 NEXT F 

710 COLOR 15,1,1 

720 SCREENi 

730 PRINT" MSX- Ch i P Tron" 

740 LOCATE 5,10:PRINT"O jogador"? 

750 IF PYX >PUZ THEN PRINT" 1 venceu." E 
LSE PRINT" 2 venceu." 
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760 PR INT SPRINT : PR INT" Jogador í fez"PYX 

"pon t os . " 

770 PRINT:PR INT" Jogador 2 f ez"PUZ"pont o 

5 ." 

7Q0 FOR F=i TO 14 

790 COLOR F , F-i , F+ 1 : FOR G=0 TO 30:NEXT 

G 

000 NEXT F 

010 PLAY"T60O3L24EBO4CO3ABGEBO4CO3ABGEC 
02AN03C03AM03C" 

820 IF INKEYt < >"" THEN 820 
030 IF INKEYS»"" THEN 830 
040 R1JN 

050 COLOR 15,1,1 
060 SCREEN 2 

070 l)RAU"S8BM65 , 20NR5U7R5BR3ND7D3R4NU3D 
40R3U7BR3ND7R3F2G2L3BU4" 

000 DRAW"BR 1 5R3ND7R3BR3ND7R3F2G2L2F3BU7 
BR3D7R5U7NL5BR3ND7F7U7S6" 

090 DRAW"BM130, Í50E7D7UH3GFBUBR6EU3HGD6 
FRNE3R4NU6R2U3R3D3NL3BU2R" 

900 DR AW"BR0BU3R 4D8L4U4NR4U4BR7NR 4D4R3F 
D 301 304" 

910 CIRCLE<50, 145) ,30,7 

920 PA INT ( 50 ,174), 7, 7 

930 FOR F=0 TO 128 

940 PSET < F , 70 ) , 4 : PSET ( 255-F , 70 ) ,6 

950 NEXT F 

960 FOR F=1 TO 40 STEP 3 

970 CIRCLE < 128, 70 ) , F , RND < -TIME )# 15 

980 PLAY ,, S8T255L60EDGFA" 

990 NEXT F 

1000 IF INKEYí < >"" THEN GOTO 1000 
1010 IF INKEYT"" THEN GOTO 1010 
1020 PLAY"CEG" 

1030 RETURN 


AN4LISE 


0 programa divide-se em três partes. apresenta- 
ção. jogo e finalização. 
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A apresentação segue da linha 850 à 1030. 

Nas linhas 850 e 860 definimos a cor e o tipo de 
tela a ser utilizado. 

Nas linha 870 e 880 escrevemos CHIPTRON e na 890 
e 900 a assinatura do autor e o ano (através da instrução 
DRAW ) . 

Nas linhas 910 e 920 fazemos um círculo azul 


claro. 

Da linha 93D à 950 movemos os dois TRONS e as 
linhas de 960 a 990 fazem a explosão do choque das motos. 

as linhas 1000 e 1010 verificam se alguma tecla 
foi pressionada. 

a linha 1020 emite um som e a 1030 retorna à ro- 
tina principal. 

0 i ogo segue da linha 30 até 390. 

Na linha 30 inicial izamos as variáveis que irão 
contar os pontos e as vidas de ambos os jogadores. 

Nas linhas 40 e 50 definimos a cor e o tipo de 
tela que usar emos . 

Nas linhas 60 e 70 desenhamos a arena. 

Na linha 80 i n i c i a I i z amo s o tempo. zerando a 
variável do sistema TIME. 

Da linha 90 à 120 desenhamos os obstáculos. 

Na linha 130 inicial izamos as variáveis respon- 
sáveis pelas coordenadas x e i de ambas as motos. 

as linhas 140 e 150 colocam as motos na tela. 

a linha 160 define a direção de cada moto. 

a linha 170 verifica se alguma tecla foi pres- 
sionada. Em caso positivo ela desvia a execucão para a ro- 
tina do teclado (linhas de 180 a 250) . caso contrário a 
execucão vai para a rotina de movimento (linhas de 260 a 
330 ) . 

Na rotina do teclado verlfica-se se alguma te- 
cla direcional foi pressionada e em caso positivo altera- 
se a di reeão da moto. 

Na rotina de movimento são verificadas as di- 
reções de ambas as motos e executados os movimentos. 

Na linha 340 lemos o que há no espaço ocupado 
pelas motos. 

Nas linhas 350 e 360 desenham-se as motos. 

Na linha 370 e 380 verificamos se elas colidi- 


r am . 

a linha 390 desvia a execucão do programa para a 
inicial izacão. 

Da linha 400 à 450 fazemos a explosão das motos, 
com um laco que determina o número de vezes e os ralos das 
circunferências, a cor das mesmas é dada por RND (-TIME) * 


15. 


Na linha 420 é gerado o som e na 430 o final do 


laco. 

Na linha 440 de c r eme n t amo s as vidas e verifica- 
mos se chegou a zero'. Caso seja zero o programa segue para 


75 



a rotina de finalização. caso contrário vai para o 
DISPLAY. 

A forma desta rotina repete-se da linha 460 à 

51 0. 


Nas linha de 520 a 670 está a rotina do DISPLAY 
da situação do jogo. imprimindo na tela o número do joga- 
dor. seu número de vidas, seus pontos e o tempo decorrido. 

A linha 670 devolve o programa para um novo con- 
fronto (montagem de tela e jogo). 

Oa linha 680 è 840 decorre a finalização. 

Na linha 750 é decidido quem é o vencedor. 

Na linha 850 reiniciamos desde a apresentação. 


CHIP TRDN 



NAUT1LUS 



INSTRUÇÕES 

Nas profundezas dos mares de um distante país 
vaga s I I e n c i os ame n t e . espreitando e espionando, um sub- 
marino nuclear, o NáUTILUS I 

fl única forma de acabar com a ameaça que ele 
representa é destruí-lo. e isso caberá a voei. um Impor- 
tante almirante comandando pessoalmente o ataque a bordo 
de um destroyer. 

O Náutllus está confinado pela topografia do re- 
levo submarino a uma região de 10 km de largura. 10 km de 
comprimento e 10 km de profundidade (um cubol). Seu des- 
toyer encontra-se num dos vértices desse cubo (flg.10.1). 

f I g . 10.1 
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Você dispõe de dez cargas de profundidade e. pa- 
ra lançá-las. basta digitar as coordenadas das posições em 
que elas devem explodir, em relação à sua poslçãol 

A coordenada X representa a distância ao longo 
da direção Norte-Sul. 

A coordenada Y representa a distância ao longo 
da direção Leste-Oeste. 

A coordenada Z representa a profundidade da ex- 

p I osão I 

Cada vez que uma carga explode, devido è turbu- 
lência das águas, o Náutilus é forçado a ligar seus moto- 
res para estabilizar-se. Seus pequenos movimentos permitem 
que ele seja detectado por um sonar remoto lançado junto 
com a carga e que resiste à explosão. 

Através dos dados enviados pelo sonar remoto, 
você pode saber a que distância (D) a carga explodiu do 
Náutilus. Sendo um almirante sábio, inteligente. astuto, 
lobo-do-mar mesmo, você não terá dificuldade em acertar o 
Náutilus depois de uns 6 ou 7 lançamentos. ’ 

Se por algum motivo um total de dez lançamentos 
forem feitos e o Náutilus não tiver sido destruído, você o 
se r á I I I 

Nesse caso. um outro destroyer será designado 
para a tarefa I 

Se o Náutilus for destruído, outro submarino se- 
rá enviado para suas águas territoriais e nova batalha te- 
rá que ser travada. 

Para reiniciar a batalha ou chamar outro des- 
troyer. digite a barra de espaços. 

Boa sorte, a Iml rante l I I 

DIGITACSO 

Este programa contém muitas linhas semelhantes e 
você pode economizar um bom tempo usando algumas para ge- 
rar as demais. As mais importantes são as de 1*10 a 270 que 
Imprimem alguns sprltes na tela, e as linhas de 770 a 860 . 
que apenas armazenam dados. Se você der uma boa olhada no 
programa, notará que existem muitas uutras linhas que são 
praticamente repetidas. Experimente, como exercício, iden- 
t i f I cá- I as I 

Apôs digitar totalmente o programa seja lá de 
que modo for. revise-o ao menos uma vêz antes de executá- 
I o . 

10 ' NÁUTILUS 
20 IN TERUALON : (>NINTERUAL = 90GOSUB870 
30 SCREEN2:0PEN"GRP:"F0R OUTPUTAStti 
4<d LINE(0,0)-(255,70) , 4 , BF 
50 LINE(0,70)-(255,19Í) , 7 , BF 
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60 FOR F = 0 TO 15 
70 Ci"256#RND(i):C2=256*RND(l) 

80 L-í2i*RND<-TIME)+70 
90 LI NE (Cl ,L)-(C2,L) ,3 
100 NEXT F 

110 F0RG=iT08:SS="":F0RF=iT08:READAS 

120 S$=S%+CHR% ( UAL ( "&H" + A9» ) ) sNEXTF 

130 SPRITES(G)=SS:NEXTG 

140 PUT SPRITE 0,(40, 63), 1,1 

150 PUT SPRITE 1 , (48,63) , 1 ,2 

160 PUT SPRITE 2,(98,170) ,4,3 

170 PUT SPRITE 3, (106,170) ,4,4 

180 PUT SPRITE 20, (210,25) , 11 ,5 

190 PUT SPRITE 4, (190,120) ,8,6 

200 PUT SPRITE 5, ( 150, 10) , 15,7 

210 PUT SPRITE 6, (158, 10) , 15,8 

220 PUT SPRITE 7 , ( 1 10 , 12 ) , 15 , 7 

230 PUT SPRITE 8 , ( 1 1 8 , 12 ) , 15 , 8 

240 PUT SPRITE 9 , ( 180 , 20 ) , 15 , 7 

250 PUT SPRITE 10 , ( 188 , 20 ) , 15 , 8 

260 PUT SPRITE 1 1 , ( 200 , 5 ) , 15 , 7 

270 PUT SPRITE 1 2 , ( 208 , 5 ) , 15 , 8 

280 G : =98 : FOR F = 40 TO 210 

290 PUT SPRITE 0,(F,63),i,i 

300 PUT SPRITE 1, (F+8,63) ,1,2 

310 IFF/2~F\2THEN G=G+i sPUTSPRITE 2,(G, 

170) , 4, 3:PUT SPRITE 3 , ( G+8 , 170 ) , 4 , 4 

320 NEXT F 

330 Gi=150:G2=ii0:G3=180:G4=200 

340 FOR F = 1 0 0 TO -100 STEP -1 

350 Gi=Gi-i SPUT SPRITE 5, (Gi , 10) , 15,7 :P 

UT SPRITE 6,(Gi+7,i0),15,8 

360 G2=G2-i 5 PUT SPRITE 7 , (G2 , 12 ) , 15 , 7 : P 

UT SPRITE 8, (G2+7 , 12) , 15,8 

370 G3=G3-i s PUT SPRITE 9 , ( G3 , 20 ) , 15 , 7 : P 

UT SPRITE 10, (G3+7,20) , 15,8 

380 G4=G4-i:PUT SPRITE 1 1 , ( G4 , 5 ) , 15 , 7: P 

UT SPRITE 12, (G4+7,5) , 15,8 

390 NEXT 

400 COLOR 1,5,5 = S0UND8 ,10: S0UND9 , 9 
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410 LI NE ( 0 , 42 ) - ( 154 ,191 ) ,5,BF 

420 L.INE ( 6 , 65 ) - < 148 , 190 ) , 1 , B 

430 PRESET (30,52) :PRINTRi,"NAUTILUS" 

440 X0=INT(RND(-TIME)*10) 

450 Y0-INT <RND<-TIME)#i0) 

460 Z0=I NT (RND(-TIME)#10) 

470 FOR T=1 TO 10:KK=70+T*i0 

480 PRESET(10,70):PRINTMi,"TIRO X Y Z 

D" : PRESET < 14 , KK > s PR INTUI ,T 

490 X$-INKEY$:IFX1><"0"ORX4>"9"THEN490 

500 Xi=VAL(X%) :PRESET(42,KK) 

510 PRINTM1 ,Xi 

520 Yt=INI<EY9i : IFYÍ < "0"OR Y9» >"9"THEN520 
530 Y1*VAL(Y%) : PRESET <58, KK) 

540 PRINT«tl,Yl 

550 Z*’=INKEY*:IFZ*<"Ó"ORZS>"9"THEN550 
560 Zi~VAL ( Z$ ) : PRESET ( 74 , KK ) 

570 PR INTIli , Z1 

500 DX=X1-X0 : DY=Yi-Y0 : DZ=Z1-Z0 

590 RE8TORE860 : I NTEROALOFF : F0RF=6T0i 3 : R 

EADX s SOIINDF , X s NEXTF 

600 D= I NT ( . 5+ 1 00#SQR ( DX#DX + DY#DY +DZ#DZ ) 
)/! 00 

610 PRESET (96,KK ) sPRINTtti r D 
620 TF D=0 THEN 690 

630 r OR F= 1 TO30 : NEXTF.: INTEROALON : NEXTT 
640 PRESET (20,2) : PR INTUI , "Sub mar i no se 
ar» r OM i mando ! " : L INE < 20 , 30 ) - < 130 , 40 ) , 4 , BF 
650 PRESE l'< 10,30) sPRINTMi /'Torpedo em n 

ossa direcao!" 

660 INTERVALOFF:FORF=iTO20:PLAY"O5L36F" 
,"05L36F": NEXTF: 

670 FORG=0TO60 : NEXTG : RESTORE850 : FORF^óT 

013 : READX : SOUNDF , X : NEXTF : F0RF=1T015 : COL 

ORF , F , F : PUTSPR ITE0 , (212, 63) ,F » 1 * PUTSPR I 

TE1 , (220,63) ,F, 2: NEXTF: COLOR 1,5, 5 

600 IF STR IG < 0 ) =0 THEN 670 ELSE CL0SEH1 

: RESTORE 770: GOTO 10 

690 IF 10-T>R THEN R=10-T 

700 L I NE ( 20 , 30 ) — ( 1 30 ,40) ,4,BF 
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j 7 10 PRESETC30, 30) :PRINTWi, "RECORDE:"^ 
í 720 LINE(26,44>-< 120,62) , í , BF : COLOR 15 , 1 
j 730 PRESET (40,54) sPRIN Trtl, "PONTOS* "pi0- 
j T 

i 740 FORG=0TO60:NEXTG:RESTORE850:FORF=6T 
S 013:READX:S0UNDF,X:NEXTF:F0RF=1T0Í5:C0L 
í ORF , F , F : PUTSPR ITE2 , (Í82,Í70) ,F,3:PUTSPR 
j ITE3 , ( 190 ,170) , F , 4 s NEXTF : COLOR 1,5,5 
\ 7 50 PUTSPRITE2, (Í82 r i70> , 4 , 3 : PUTSPR ITE3 
| , ( 190, Í70) ,4,4 

1 760 IF5TRIG(0) =0THEN740 : ELSESOUNDÍ 0 ,0:1 
f NTERVALON : GOTO400 

f 770 DAT A 00 , 00 , 00 , 03 , 0F , 83 , FF , 3F 
í 780 DATA 00,00, 00 , 00 , F0 , FF , FE , FC 
1 790 DATA 00,00,01 ,BF,7F,BF, 00, 00 
{ 800 DATA GO , 80 , E0 , FE , FF , FC , 00 , 00 
S Oi© DATA 3C , 7E , FF , FF ,FF,FF,7E,3C 
j 820 DATA 1 8 , 3C , 3C , 18 , 36 , 59 , A9 , A5 
| 830 DATA 1C,2B , DF , EF , FF , 7D , IA, 06 
! 840 DATA 40,F8,34,FE,6F,FB,BC,78 
I 850 DATA 20,220,0,0,15,100,60,0 
| 860 DATA 20,220,15,15,15,100,60,0 
1 870 PLAY"vi01i2o5ao613<j"r"v9113o5aoól3g 
1 " : RETURN 


ANALISE 


0 funcionamento do NAUTILUS é bastante simples. 
Existe uma parte inicial do programa (linhas entre a 30 e 
a 390) que ppenas "embelezam” a abertura visual, apresen- 
tando uma paisagem marítima e movendo pela tela alguns 
sprites (um polvo, núvens. o Sol. o Náutllus e o seu des- 
troyer). Os dados usados para definição dos sprites estão 
armazenados nas linhas antre a 770 e a 840. 

A linha 20 é a responsável pelo irritante som 
produzido pelo sonar do destroyer ■ sempre que o relógio in- 
terno do MSX avança um segt-do e meio. a sub-rotlna da li- 
nha 870 (um PLAY) é executada. Se você quiser eliminar es- 
se som. elimine a linha 20. Se você quiser alterá-lo. al- 
tere as notas na instrução PLAY da linha 870. 

A arte principal do jogo está entre as linhas 
400 e 760. Vamos comentar rapidamente alguns trechos mais 
importantes. 

As linhas -ntre a 440 e z 460 escolhem uma posi- 
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Cão para o Nátilus, sorteando cada uma de suas coordenadas 
(XO.YO e ZO). 

A linha 470 abre um laeo que pode ser repetido 
dez vezes, uma para cada carga (tiro) que o destroyer pode 
lançar. As coordenadas de cada tiro são inseridas nas va- 
riáveis XI. Y1 e Z1 e impressas na tela pelas linhas en- 
tre a 490 e a 570. 

As linhas de 580 a 610 calculam a distância (O) 
da explosão até o submarino e geram um som de explosão 
(usando dados da linha 860 ). 

Se o Náutilus foi atingido (0 = 0). o programa é 
desviado para a linha 690. onde a rotina de finalização 
vitoriosa é executada (linhas de 690 a 750). Caso contrá- 
rio. um novo lançamento (tiro) é realizado. 

Ao terminarem os tiros, se o Náutilus não tiver 
sido atingido (D ■ 0). a rotina de finalização perdedora é 
executada (linhas de 630 è 670). 

Em ambos os casos, digitando-se a barra de espa- 
ços (linhas 680 e 760) uma nova batalha é travadal 

Propositadamente não entramos em detalhes sobre 
cada linha do programa, mas com um pouco de esforço você 
mesmo pode analisá-lo linha por linha. Suas rotinas são 
bastante simples e a mais complexa envolve apenas o teore- 
ma de “trltágoras" (flg. 10.8). Fica como exercício a al- 
teração e comp I ementacão do programa por sua própria con- 
tai 

flg. 10.2 
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TANK 



INSTRUÇÕES 

Neste jogo sua missão á roubar um diamante que 
está guardado no fundo de um subterrâneo protegido por 
quatro robôs guardiães e em seguida trazê-lo de volta è 
superfície. Você dispõe de um tanque de guerra que pode 
abrir caminho a tiros e repelir os robôs que tentarão 
cercá-lo. Para pegar o diamante, basta passar com o tanque 
por cima dele. 

0 tanque é controlado pelas teclas de cursor e 
barra de espaço. As teclas < e > giram o tanque, 
a tecla A o move para a frente e a barra de espaços é 
usada para atirar. 

A saída fica no canto superior esquerdo da tela. 
sobre o lugar onde o tanque é colocado I n I c I a I me n t e . Não 
tente sair sem ter pego o diamante (você perceberá tardla- 
mente que isto é desastroso e extremamente desaconse I hé- 
vel). Se mesmo assim você quiser experimentar, ao menos 
grave o programa antes III 


DIGITACSO 

O programa não oferece dificuldade de digitação, 
mas é importante transcrever as linhas com bastante aten- 
ção para não haver surpresas na hora de rodar o programa. 

j ® I. TANK ATTACK 

.10 DATA 24,Í0,Í0,D6,D6,FE,FE,FE,C6 
20 DATA 25,FC,FC,70,7F r 70,FC r FC,00 
30 DATA 2ó,C6,FE, FE , FE,D6,D6,i0,i0 
# 40 DATA 27 , 3F , 3F , 0E , FE , 0E , 3F , 3F , 00 

50 DATA 4 r 18 , 3C , 3D, 3E , 3D , 3C ,18, 3C 
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•60 DATA 5, 18,3C,BC,7C,BC,3C, 18 , 3C 
; 70 DATA 6,00,00,00,18,18,00,00,00 
ÍB0 DATA Í6,00,3C,56,FF ,56,34, 18,00 
Í90 DATA 8 , FF , FF , FF, FF, FF, FF, FF, FF 
100 DATA -32,1,32,-1 
110 SCREEN í , , 0 s GOSUB 490 
120 KEYOFF : DEFINT A-Z:GOSUB 450 : CL.S : WI D 
TH 30 ! PR INTCHRS < 219 ) ;CHRí<203) ;STRINGí< 
28,219) ; :FOR I = i TO 21 : PR INTCHRíli ( 219 ) ; : 
F0RJ=1T028:PRINTCHR%(1) ;CHRÍ(72) ; sNEXT: 
PRINTCMRÍ <219> ; :NEXT I sPRINTSTR ING9»<30, 
219) ; : FOR 1=0 TO 3 : READ DS(I):NEXT 
130 INTERVAL ON=ON INTER VAL=3 GOSUB 340 
: DEF FNPO < X , Y >=6i44+X+32#Y s VPOKE 6831,1 
! 6 

i 140 A=6178:D=2:F=0:P=0-.VPOKE A,D+24:STR 
l I G ( 0 ) OFF : ON STRIG GOSUB 330:FOR 1 = 1 TO 
! 4:X(I) = 15+I:Y(I) = 15:NEXT I 
130 STRIG(0)OFF:C=STICI<(0) :IF C=3THEND= 
D+1ELSEIFC=7THEND=D-1ELSE170 
í 160 OUT 170 , 154 s OUT 170 , 26 
i 170 IF D = -iTHEND=3ELSEIFD = 4THEND = 0 
: 180 UPOKE A,D + 24:STRIG(0)ON 
190 X= ( A— 6144 )hOD32* Y= < A-6144 ) \32 5 FOR I 
j=i TO 4 5 Z = 8 : IF K4THENZ = 32 
! 200 OPOKEFNPO ( X ( I ) , Y ( I ) ) , Z 5 Z = 4 : DX = 0 : DY = 

I 0 : IFRND < 1 ) > . 5THENDX=SGN < X-X ( I ) ) ELSEDY=S 
í GN ( Y-Y < I ) ) 

| 210 IF K4THEN 250 

! 220 IFVPEEK (FNPO(X< I )+DX,Y ( I ) ) ) < >32THEN 
i IFVPEEK < FNPO < X < I ) ~DX , Y < I ) ) )=32THENDX=-D 
i XELSEDX=0 

; 230 IFVPEEK ( FNPO < X<I),Y(I> +DY ) > < >32THEN 
IFVPEEK<FNPO<X< I ) , Y( I )-DY> )*32THENDY=--D 
YELSEDY=0 

i 240 U=FNPO<X<I> ,Y<I) ) :IF VPEEK < U+l ) +VPE 
El< < U-l ) +VPEEK ( U+32 ) +VPEEK < U-32 ) =32 THENG 
OSUB400 

250 X < I ) =X < I ) +DX s Y < I ) =Y < I ) +DY s IFX < I ) >XT 
HENZ=5 



| 260 IFVPEEK(FNPO<X<I> ,Y( I) ) ) =6THENX < I ) = 
j 20 5 Y ( I ) = Í5 

[ 270 K=VPEEK<FNP0<X(I),Y(I>)):IFK>23ANDI< 

| < 2BTHENT=0 : STR IG ( 0 ) OFF 8GOTO410ELSEVPOKE 
; FNPO ( X(I),Y(I)),Z: NEXT I 
j 280 K=VPEEK (DS(D)+A) : IFC< > ÍTHEN320 
! 290 IFK < >8ANDK < >2Í 9THEN VPOKE A r 32:A=A+ 
! DS ( D ) : VPOKE A,D+24:0UT 170,154:OUT 170, 
i 26 

; 300 IFK=16THENF=i : FOR I=iTOi0 : DEEP :NEXTI 
j ‘ ELSEI IFK=40RK=5THENT =0 : STR IG ( 0 ) OFF : GOTO 
j 410 

\ 310 IFK=203THENIFF=1THEN420ELSECLS s PR IN 
I T"VOCE NAO DEVIA TENTAR FUGIR NEW 
j 320 ROTO 150 

| 330 IF T >0 THEN RETURN ELSE T=A : DT =D : EIE 
i EP ! INTERVAL ONíRETURN 
i 340 IF T = 0 THEN RETURN 
i 350 IF VPEEK < T > =6 THEN VPOKE T,32 
360 T=T+DS (DT > * IF VPEEK<T>«32 THEN VPOK 
I E T , 6 ! RETURN 

370 IF VPEEK ( T ) =8 THEN VPOKE T,32 
380 IF VPEEK ( T ) =40R VPEEK ( T ) =5THENG0SUB47 
0 

j 390 INTERVAL OFF í T=0 : RETURN 
400 U=FNP0<2,Y< I ) ) :FOR J=U TO U+27SVP0K 
E J , 32 : NEXT J : RETURN 

410 CLS 5 LOCATE 0, 10sPRINT"VOCE FOI CAPT 
UR ADO" : GOT 0430 

420 CLS t LOCATE 0 , 10 : PR INT"VOCE CONSEGUI 
U" 

430 PR INT" JOGA DE NOVO ?"? 

440 A$=INPUT$ < i ) : IFAí="S"THENRUNELSEIFA 
4="N"THENENDELSE440 

450 CLS s FOR 1 = 0 TO 8 : READ Z:FOR J=0 TO 
7 5 READ B% ! VPOKE J+8*Z , VAL < "&H"+BÍ > : NEXT 
JiVPOKE 6150+2*1 , Z s NEXT I 
460 Ii=INPUTl ( 1 ) : RETURN 

470 FOR I = 1T04 : IFFNPO ( X(I),Y(I))< >TTHEN 
NEXTI :RETURN 
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I 480 VPOKE T,32:X<I)=20:Y(I)=i5:FORJ=iTO 
® 5 5:OUTí70,i54: OUT í 70 , 26 s NEXTJ s RETURN 
i 490 VP0KE8192 , 135 : UP0KE8193 , 96 
0 j 500 VP0KE8194 r 246* VP0KE8195 , 39 ! FOR 1=819 
í 6TO82i0:OPOKEI ,7 sNEXTI SVP0KE8219, 176 
® I 510 RETURN 


AN4LISE 


O programa inicia chamando uma sub-rotina (li- 
nhas 450-510) que lê as Instruções DATA do Infcio do pro- 
grama e faz a redefinição dos caracteres (tanque. robôs, 
d I amante, etc ). 

Em seguida, o programa imprime o cenário (linha 
ISO) e Inicia as variáveis (linhas 120-140). A ação cen- 
tral do jogo fica entre as linhas 330 e 390. A linha 400 
serve para abrir uma passagem para o robô obturado (o que 
não escava túneis) e as linhas 410 á 440 encerram o jogo. 



86 



BOLICHE 



INSTRUÇÕES 

Este jogo é extremamente simples, a despeito de 
seu programa ser um tanto complexo. 

Ao ser executado, ele gera na tela a Imagem de 
uma plsta*de boliche vista de cima. Existem 21 garrafas 
que deverão ser derrubadas com 6 bolas. 

f lg. 12.1 BOLICHE 

Bola : ó Pontos : 10 



A bola surge numa posição à direita da pista e 
vai se deslocando para a esquerda. Você pode mov8-la para 
cima ou para baixo com as setasAeV. porém apenas en- 
quanto ela não chegou è faixa demarcatõrla central. Após 
esse limite, a bola segue uma linha reta. 

Ao Inserirmos este programa neste livro. não 
pensamos em suas qualidades como jogo. mas sim no exemplo 
que ele representa quanto à utilização da instrução ON 
SPRITE. 
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Como você deve ter notado, o programa parece um 
pouco longo para produzir algo tão simples. Esse aparente 
excesso de programa será compreendido mais adiante. na 
ANÁLISE. 

DIGITAC20 

0 programa é relativamente extenso e um bom tem- 
po pode ser economizado através da re-ut i I i zacão das li- 
nhas já introduzidas. Se você quiser, pode digitar o pro- 
grama sequenc i a Imente . comecando da linha 10 e terminando 
na 800. Nós. entretanto, sugerimos que você utilize as li- 
nhas semelhantes. Para facilitar seu trabalho, relaciona- 
mos a seguir as linhas separadas em grupos. 


* linhas. 40. 70. 100, 210. 220. 300. 360, 

FOR = TO etc. 

* I I nhas. 50. 80 

S$»S*+ 

* I I nhas. 60. 90. 110 

SPR I TE$( n )* 

* I I nhas. 120. 130 

DATA. . . . 

* linhas. 180. 190. 200. 320. 340. 450 

L INE 

* linhas. 230. 260. 370. 510. 600. 660. 730. 800 

PUT 

* linhas. 240. 270 

CIRCLE 

* linhas. 250. 410. 420. 430. 470. 500. 530. 570. 620. 680 


* I I nhas . 330. 350. 460 
PRESET 
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* linhas. 540. 580. 590. 630. 640. 650. 690. 700. 710. 

720. 750. 760. 770. 780. 790 

IF THEN PUT SPRITE 

* linhas. 10. 30. 140. 290. 480. 520. 560. 610. 670. 740. 

L I nhas REM 


As linhas não inseridas em nenhum desses grupos 
são as seguintes. 10. 20. 150. 160. 170. 280. 310, 380. 
390. 400. 440. 490. 550. 

Apôs digitar completamente o programa, qualquer 
que seja a sequência escolhida, confira-o. ao menos uma 
vez . linha por linha. 



10 "BOLICHE 
20 SCREEN 2,0,0 

30 "MMMHMHMHHMMHMHttHWHMMttHMMMMHHMHHMM 
40 FOR F=i TO 8 : READ A9> 

50 S*=S9i+CHR%<VAL<"«H"+Al>>:NEXT F 
60 SPRITE*<i)=S*:SÍ= ,,// 

70 FOR F=i TO 8 : READ A9, 

80 Gí=Sí ♦ CHRí ( VAL ( ,/ &H // +A% ) ) :NEXT F 
90 SPRITE*<2>=SS:S4="" 

100 FOR F=i TO 8 : S4=S4+CHR5 < 0 > • NEXT F 
110 SPR I TE4 ( 3 )=S4 

120 DATA 3C,66,FB,FD,FF,FF,7E,3C 

130 DATA 38, 44, BA, BA, BA, 44, 38, 00 

140 'MMMMMMHMMMMMHMHMM tt HMMMHHMWMMHMMM 

150 MAXFILES=i :PT=0:COLOR 15,6,6:CLS 

160 OPEN"GRP s" FOR OUTPUT AS Ml 

170 PRESET<60,2> :PRINT Ml," BOLICHE 


Bola: Pont os s" 

^ 180 LINE(0,30>-<255,35> ,i,BF 

190 LINE(0,134)-<255,139) ,i,BF 
200 L INE < 145,34)-( 147 ,135) ,1 , B : A=1 
® 210 FOR K =0 TO 5:X=K#16+20 

220 FOR Y=40+8#K TO 80 STEP 16 
^ 230 PUT SPRITE A , < X , Y > , 15 , 2 : A=A+i 

240 CIRCLE < X+2 , Y+2 ) , 3 , 1 : PAIN T < X+2 , Y+2 ) , 

# i 

250 IF Y~80 THEN 280 

- 260 PUT SPRITE A , < X , 160-Y ) , 15 , 2 : A=A+1 
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i 270 CIRCLE < X+2 , 162— Y ) , 3, 1 • P AINT < X+2 r í 62 
I ~Y),i 

! 280 NEXT Y , K 
í 290 

j 300 FOR S=1 TO 6 
j 310 Y=36+INT ( RND < — TIME ) #78 ) 

320 LI NE (78,19)-(90,28> , 6 , BF 
330 PR E SET (70, 19) :PRINTttl , S 
340 LINE< 182, 19>-<220, 28) ,6, BE 
350 PRESET ( 175 , 19) sPRINTRi , PT 
360 FOR X=255 TO 0 STEP-i 
370 PUT SPRITE 0,(X,Y>,1,1 
380 SPRITE ON 
390 ON SPRITE GOSUB 490 
400 T=STICK <0> 

410 IF X < 1 45 THEN 440 

420 IF T=5 THEN Y = Y + ÜIF Y>125 THEN Y=i 

25 

| 430 IF T=i THEN Y=Y-1:IF Y<35 THEN Y=35 

] 440 NEXT X,S 

• 450 L I NE ( 1 82 , 1 9 ) - ( 220 , 28 ) , 6 , BF 

I 460 PRESETC 175, 19 ) *PR INTMi , PT 

470 IF STR IG ( 0 ) =-í THEN RUN ELSE 470 
480 '«HlHHHIHHMMHMRHMHMHHttMHMttHHMttMHWH 
: 490 SPRITE OFF:BEEP:PT=PT+i 

i 500 IF X < i 00 THEN 530 
S 510 PUT SPRITE 21 r < X , Y ) , 0 , 3: RETURN 
520 'MHM MNttttH MHMHMMllttHttlMlttHHttRHttHMttHtt 
530 IF X < 84 THEN 570 

540 IF Y < 80 THEN PUT SPRITE 19,<X,Y>,0, 

I 3 ELSE PUT SPRITE 20,<X,Y>,0,3 

550 RETURN 

560 'MMHMMMMHMMMMHHMMMMMHNMMHHHHHHHHM 

570 IF X< 68 THEN 620 

580 IF Y < 72 THEN PUT SPRITE 16,(X,Y>,0, 
3 : RETURN 

590 IF Y <80 THEN PUT SPRITE 18,<X,Y>,0, 
3 5 RETURN 

| 600 PUT SPRITE 17,<X,Y) r 0,3:RETURN 

! 610 'HHttttttttttHttttHHHHttMHMHttMHttttttMttHtttttt# 



| # | 620 IF X < 52 THEN 680 

630 IF Y< 64 THEN PUT SPRITE Í2,<X,Y>,0, 

I fc 3SRETURN 

640 IF Y < 80 THEN PUT SPRITE 14,<X,Y),0, 

I sJí 3 : RETURN 

5 • 650 IF Y < 96 THEN PUT SPRITE 15,(X,Y>,0, 

i 3 : RETURN 

I 9 | 660 PUT SPRITE 1 3 , ( X , Y ) , 0 , 3 : RETURN 
i 6 70 

I Ü& ! 680 IF X < 36 THEN 750 

! 690 IF Y < 56 THEN PUT SPRITE 7,<X,Y),0,3 
| $ i : RETURN 

| j 700 IF Y < 72 THEN PUT SPRITE 9,<X F Y>,0,3 
1 ^ j : RETURN 

| w j 710 IF Y< 88 THEN PUT SPRITE ii,(X,Y>,0, 
j 3 : RETURN 

f ® í 720 IF Y< 104 THEN PUT SPRITE 10,<X,Y>,0 
1 i , 3 : RETURN 

I ^ í 730 PUT SPRITE 8 , ( X , Y ) r 0 , 3 : RETURN 

! 740 'HMHHMMHMMMMHMHHHMMHHHMMMHMMMttMMM 
I ~ I 750 IF Y < 48 THEN PUT SPRITE i,(X,Y>,0,3 
i : RETURN 

! 760 IF Y <64 THEN PUT SPRITE 3,<X,Y) r 0,3 
ji • í s RETURN 

j 770 IF Y < 80 THEN PUT SPRITE 5,<X,Y>,0,3 
I ígs : : RETURN 

; 780 IF Y <96 THEN PUT SPRITE 6,<X,Y>,0,3 
| # : RETURN 

| 790 IF Y< 1 12 THEN PUT SPRITE 4,<X,Y),0, 

í 3 -.RETURN 

I 9 800 PUT SPRITE 2, <X,Y> ,0,3: RETURN 


ANALISE 


Para facilitar a análise do programa, vamos dl- 
vidi-lo em 4 blocos principaiSs 

1) Bloco de definição de SPRITEs 
linha inicial- <10 
linha final- 130 
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2 ) Ql oco da tela Inicial 

linha Inicial- 150 
linha final- 280 

3) Bloco do jogo 

linha inicial- 300 
linha final- 470 

4) Bloco de verificação das garrafas 

linha inicial- 430 
linha final- 800 

Os três primeiros blocos são bastante simples e 
passaremos a descrevê-los sucintamente a seguir. Quanto ao 
quarto bloco. discutiremos um pouco mais detalhadamente 
seu funcionamento, é ele. na verdade, a parte complexa do 
programa, e se você conseguir entendê-lo. terá uma valiosa 
chave para criação de muitos outros programasl 

0 bloco de definição de SPRITEs gera três 
SPRITEs. um para as garrafas, outro para a bola e. o últi- 
mo. vazio. 

Os códigos do SPRITE das garrafas estão armaze- 
nados em hexadecimal na linha 130. e os do SPRITE da bola 
na linha 120. 

0 SPRITE vazio é uma sequência de 8 códigos 0. 

0 bloco da tela inicial apresenta as mensagens, 
a pista e as garrafas no início do jogo. Note que para ca- 
da garrafa são impressos um SPRITE branco (linhas 230 e 
260) e um círculo preto (linhas 240 e 270). A forma como 
Isso é feito não é multo importante agora. Você mesmo, com 
um pouco de paciência, terá condições de entender. 

Mais importante é notar Mus os SPRITEs das gar- 
rafas são impressos em função das variáveis X e Y. â se- 
quência de posições geradas é dada na tabela a seguir e 
Ilustrada na figura 12.2. Observe que as coordenadas de um 


SPRITE referem-se. 

na 

verdade, ao seu 

canto superior es- 

querdo 1 

f lg. 12.2 ® 

'© 

'© 
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CAMADA 


TABELA 12.1 


X Y 


2 0 

40 

1 

20 

120 

2 

20 

56 

3 

20 

104 

4 

20 

72 

5 

20 

88 

6 

36 

48 

7 

36 

112 

8 

36 

64 

9 

36 

96 

10 

36 

80 

11 

52 

56 

12 

52 

104 

13 

52 

72 

14 

52 

88 

15 

68 

64 

16 

68 

96 

17 

68 

80 

18 

84 

72 

19 

84 

88 

20 

100 

80 

21 


Vamos. a9ora. ao bloco do jogo. 

Sua parta principal é um laco FOR...NEXT. repe- 
tido 6 vezes, uma para cada bola lançada. A linha 300 abre 
o laco. A linha 310 sorteia a posição vertical em que cada 
bola surgirá no lado direito da tela. As duas linhas se- 
guintes. 320 e 330. apresentam, na tela. o número da bola 
que foi lançada. As linhas 3*10 e 350 apresentam os pontos 
do jogador. 

A linha 360 Inicia o laco que faz a bola Ir se 
deslocando para a esquerda. 

A linha 370 Imprime a bola na tela. Observe que 
a sua posição depende das variáveis X e Y. 

A linha 380 aciona os desvios produzidos pela 

I I nha 390. 

Essa linha (390). desvia o programa para a sub- 
rotlna da linha «190 sempre que a bola atingir alguma gar- 
rafa. Se não existisse a Instrução SPRITE ON na linha 380. 
a 390 não funclonarlal 

As quatro linhas seguintes permitem que a bola 
seja deslocada para cima e para baixo através das setas A 
e V . enquanto ela estiver antes da linha limite. 

A linha «140. fecha os lacos abertos para as bo- 
las e seus movimentos. 

Finalmente. as linhas «150 e «160 apresentam a 
pontuação final do jogador e a linha 470 permite o reini- 
cio do jogo mediante o press i onamento da barra de espaços. 


93 



Chegamos, por fim. á sub-rotina que constitui o 
bloco de verificação das garrafas. 

Quando a bola atinge uma garrafa, o programa de- 
ve apagé-la da tela. O problema está em determinar em qual 
camada está a garrafa atingida, pois isso é essencial para 
apagá- I a . 

Existem, i n i c i a I me n t e . 51 garrafas no vídeo, ca- 
da uma em uma camada (de 1 a 21 ) . 

A rotina a partir da linha 490 verifica a garra- 
fa atingida através da posição da bola na tela. 

Vejamos como Isso é feito. 

Quando a bola atinge alguma garrafa, ocorre uma 
sobreposição de SPRITEs e a linha 390 desvia o programa 
para a linha 490. Essa linha "desliga" o desvio produzido 
pela linha 390. gera um "beep" e incrementa a pontuação do 
jogador. Se a Instrução SPRITE OFF fosse eliminada da 
linha 490. o desvio produzido pela linha 390 não seria 
desligado e o programa ficaria I ndef i n i damente "parado" 
assim que alguma garrafa fosse atingida pela bola. Expe- 
rimente eliminar a Instrução SPRITE OFF para compreender 
melhor porque ela é essencial. 

Logo depois, na linha 500. verifica-se se a gar- 
rafa mais á direita da tela foi atingida. Essa garrafa es- 
tá na camada 51 e suas coordenadas são X=100 e Y = 80. Se a 
coordenada X da bola for maior ou Igual a 100. certamente 
a garrafa atingida foi a da camada 51 (veja a flg. 15.5). 

Caso a coordenada X da bola seja menor que 100. 
alguma outra garrafa foi atingida e o programa vai para a 
linha 530 . 

Se a coordenada X da bola for maior ou igual a 
84. significa que a garrafa atingida foi a da camada 19 ou 
da camada 50. Nesse caso. a decisão é feita com base na 
coordenada Y da bola. Se Y é menor que 80. a garrafa atin- 
gida é a da camada 19. e se Y for maior ou igual a 80. a 
garrafa é a da camada 50. 

Se a coordenada X da bola for menor que 84. o 
programa é desviado para a linha 570. pois a garrafa 
atingida foi alguma outra. 

Assim, o programa prossegue na sub-rotina. ave- 
riguando garrafa por garrafa, até achar a que foi atingi- 
da. Então retorna à rotina principal. 

Essa versão do BOLICHE necessita de todas essas 
linhas porque usa SPRITEs. Um efeito mais modesto é obtido 
com o programa a seguir que utiliza a tela de baixa reso- 
lução. 

1 ^:10' BOLICHE II 
• 20 COLOR 15 , 6 , ó : SCREEN3 
i 30 OPEN"GRP:"FOROUTPUTAS**i 

40 PRESET<24,0) sPRINTWi , "BOL ICHE" s PT=0 
! 50 LI NE < 0 , 30 ) - < 255 , 35 > , 1 , BF 
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60 LI NE ( 0 r 128 > -< 255 , 133 ) , 1 , BF 

70 FOR K=0 TO 5sX=K*i6+20 

80 FOR Y =40+B#KTO80STEP 16 ! PSET ( X , Y ) 

90 IF Y< >80 THEN PSEKX, 160-Y) 

100 NEXT Y , K 

110 FOR S=i TO il:AZ=32000!»RNDC-TIME> 
120 LI NE <10,150)-< 90 ,191), 6, BF 
130 PRESET<10, 150) sPRINTWl,S 
140 LINE< 140, 150)-<250, 191 > ,6,BF 
150 PRESET(140,150) sPRINTMirPT 
160 Y=36+4*INT < RND ( AZ > «20 ) 

170 FOR X=255 TO 0 STEP-4 

180 IF P0INT(X,Y)=15 THEN PT=PT+i 

190 F0RF=1T05:NEXTF 

200 PSET ( X , Y ) r 1 : PRESET < X+4 , J) 

210 T=STICK (0) s J=Y 

220 IFT=5THENY=Y+4 s IFY > 124THENY=124 
230 IFT=lTHENY=Y-4 s IFY< 36THENY=36 ' 

240 NEXT X,S 

250 LI NE (140,1 50 )-< 250 ,191), 6, BF 
260 PRESET ( 140 , 150 > s PR INTHi , PT 
270 IF STR IG < 0 ) =0 THEN 270 ELSE RUN 


Muitas alterações podem ser feitas no programa 
que usa SPRITEs a fim de melhoré-lo. Uma delas pode ser a 
substituição do "beep" da linha 490 pelo barulho de choque 
característico do boliche. Outra alteração seria a opção 
de mais de um jogador, com a indlcacão do recorde e dos 
nomes. Espaço na tela há de sobra para Issol 

Com um pouco de Imaginação. você mesmo pode 
Implementar seu programai 
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INSTRUÇÕES 

Neste jogo. voc8 guia uma minhoca multo faminta 
que precisa comer vitaminas para poder continuar viva. 

A cada vitamina que é devorada, a minhoca aumen- 
ta suas energias e. em consequSnc l a . cresce um pouco. 

Se a minhoca não comer as vitaminas, ela acaba 
morrendo de desnutrição. E é por Isso que a minhoca nunca 
para de andar, sempre à procura das preciosas vitaminas 
que estão espalhadas pelo caminho. 

Vocã deve guiá-la de maneira a fazer com que ela 
vá ao encontro de qualquer uma das quatro vitaminas que 
foram colocadas aleatoriamente na tela. 

Se a minhoca morder a si mesma ou a uma das qua- 
tro paredes laterais, morre e o jogo termina. Cuidado ao 
gulá-lal Ela só pode comer vitaminas e deve fazer Isso o 
mais rápido possível. A cada passo dado. um pouco de ener- 
gia é consumida e a minhoca pode morrer de fomel 

Para guiar a minhoca use as setas que estão na 
parte Inferior à direita no teclado. Acionando simultanea- 
mente duas teclas voc8 pode guiá-la também nas direções 
diagonais. 

Na parte inferior da tela vocS verá uma linha 
que indica quanto a minhoca tem de energia. Inicialmsnte 
ela vai do canto esquerdo ao direito. Com a perda da ener- 
gia ela diminui da direita para a esquerda. 

Simultaneamente ao movimento da minhoca, um a- 
larme sonoro é regularmente emitido, indicando através da 
frequência a quantidade de energia. Ouanto mais agudo, me- 
nos energia a minhoca possui. 

Ouanto mais vitaminas forem abocanhadas, mais 



tempo a minhoca permanecerá viva e mais tempo você fica 
j ogando . 

No final do jogo. é apresentada a quantidade de 
vitaminas que a minhoca comeu e qual o RECORD até aquele 
momento . 

Se você conseguir bater o RECORD. ouvirá uma mú- 
sica em sua homenagem, pois conseguiu fazer a minhoca co- 
mer mais vitaminas do que nlnguéml Boa sortel 


DIGITACSO 

Para introduzir o jogo minhoca, embora ele seja 
bastante simples, á necessário um pouco de atenção e cui- 
dado. principalmente nas linhas de 1980 atá 2150. onde os 
caracteres estão juntos e a leitura á um pouco dificulta- 
da . 

Para comeear a digitar, comande AUTO 1000 (e 
tecle RETURN). Assim o Expert vai numerando as linhas au- 
tomaticamente. simplificando multo o trabalho. 

Uma tática Inteligente para uma boa digitação é 
Ir conferindo cada linha digitada antes de teclar RETURN. 
Assim, ao terminar uma linha, conflra-a e corrija os even- 
tuais erros detectados. Com Isso. evltam-se desagradáveis 
surpresas ao executar o programa. 

Ap6s terminar a digitação, convém gravar o pro- 
grama em fita se você pretende usá-lo póster I ormente . . Di- 
gite o comando CSAVE”ml nhoc" . prepare o gravador e coman- 
de RETURN . 

Quando aparecer o "Ok" na tela. rode o programa 
e comece a jogar. 


! 


1.000 

1010 

1020 

1030 

r 

JOGO 

r 

' RUBENS 

J 

MINHOCA 

DEZ / 85 

X vMv 

1050 

CLEAR 3000 


1060 

DEFINT A-Z 


1070 

MA = 10 


1080 

SCREEN 1,0,0 


1090 

UIDTH 32 


1100 

COLOR 15,1,1 


1110 

CLS 


1120 

KEY OFF 


1130 

LOCATE 7,1,0 


1140 

PRINT ">>> 

MINHOCA 

1150 

LOCATE 0,4 




1160 PRINT "Voce deve guiar uma minhoca 

de" 

1170 PRINT "maneira a faze-la comer o m 
a i or" 

11(30 PRINT "numero possível de vitamina 

s." 

1190 LOCATE 0,9 

1200 PRINT "A cada vitamina que e comi d 
a , a" 

1210 PRINT "minhoca cresce um pouco." 
1220 LOCATE 0,13 

1230 PRINT "Para guiar a m i nhoca , ut i 1 i z 

e as" 

1240 PRINT "setas do lado direito do te 

ciado" 

1250 LOCATE 5,22 

1260 PRINT "TECLE QUALQUER TECLA "; 

1270 IP INKEYS <> "" THEN GOTO 1270 
1230 X<T» = INPUTS(i) 

1290 ' 

1300 ’ rotina principal 
1310 ” 

1320 GOSÜB 1580 

1330 INTERUAL OFF 

1340 SOUND 7,255 

1350 FOR I = 1 TO 500 

1360 NEXT I 

1370 SCREEN 1 

1380 LOCATE 5,5 

1390 PRINT "Uoce comeu 

1400 PRINT UT ; " vitaminas" 

1410 LOCATE 5,8 

1420 PRINT "o record e "f 

1430 PRINT MA 

1440 IF UT > MA THEN MA = UT 

1450 IF MA > UT THEN GOTO 1250 

1460 LOCATE 0,13 

1470 PRINT "PARABÉNS !! BATEU 0 RECORD 
j ! ! " 

1480 X$="T 150L4" 



j 


j: 


i 


I 


| 1490 SOUND 7,248 
í .1.500 PLAY XS,XS,XS 
\ 1510 PLAY "04B" , "05D" , "" 

! 1520 PLAY "05C" , "05E" , "" 
j 1530 PLAY "04B" , "05D" , "05G" 

! 1540 PLAY "04 A" , "05D" , "05FH" 
i 1550 PLAY "03G" , "04B" , "05G" 

I 1560 IF PLAY ( 1 ) THEN GOTO 1560 
j 1570 GOTO 1250 
j 1580 ' 

j 1590 ' rotina do jogo 
• 1600 ' 

; 1610 SCREEN 3 

í 1620 BD%= "r250d 1761 250u 176" 

j 1630 PSET (0,0) ,3 

! 1640 DRAW BD3> 

! 1650 FOR X = 12 TO 243 STEP 4 


1660 


PSET 

[X, 187), li 

1670 


SOUND 

0 , X-12 

1680 


SOUND 

1,0 

1690 


SOUND 

2 , X 

1700 


SOUND 

3,0 

1710 


SOUND 

4 , X+12 

1720 


SOUND 

5,0 

1730 


SOUND 

7,248 

1740 


SOUND 

8,5 

1750 


SOUND 

9,5 

1760 


SOUND 

10,5 

1770 

NEXT X 


1780 

CT 

= 0 


1790 

XR 

= 20 


1800 

YR 

= 100 


1810 

XC 

= 24 


1820 

YC 

= 100 


1830 

XT 

= 243 


1840 

ON 

INTERVAL=10 GOSUB 


1850 INTERVAL ON 
1860 PSET ( XR , YR ) ,4 
1870 PSET (XC,YC) ,7 
1880 ID% = CHRK3) 


i oo 



I 1890 DR = 3 

; 1900 FOR I = 1 TO 4 

| 1910 GOSUB 2160 

| 1920 NEXT I 

i 1930 OT =0 

S 1940 PSET < XC , YC) ,4 

I 1950 IF XT < 12 THEN RETURN 

i 1960 XI = INKEYf 

I 1970 X = STICK ( 0 ) 

j 1900 IF X O 0 THEN DR = X 

! 1990 IF. DR>i AND DR<5 THEN XC=XC+4 

1 2000 IF DR >5 AND DR<9 THEN XC = XC-4 

| 2010 IF DR=8 OR DR=i OR DR=2 THEN YC=YC 

I -4 

i 2020 IF DR >3 AND DR < 7 THEN YC=YC+4 
; 2030 IF POI NT ( XC , YC ) =2 THEN GOSUB 2400 
i 2040 IF POINT ( XC , YC > O 1 THEN RETURN 
! 2050 PSET < XC , YC ) , 7 
; 2060 IDS = 1D% + CHRÍ(DR) 

: 2070 IF CT > 0 THEN CT=CT-i : GOTO 1940 
í 2000 PRESET < XR , YR > 
í 2090 X = ASC ( LEFT5 < IDS , 1 ) ) 
j 2100 IF X>1 AND X< 5 THEN XR = XR + 4 
2110 IF X >5 AND X < 9 THEN XR=XR-4 
2120 IF X=8 OR X=i OR X=2 THEN YR=YR -4 
2130 IF. X >3 AND X<7 THEN YR=YR+4 
2140 ID* = MID1(ID1,2) 

; 2150 GOTO 1940 

i 2160 ' 

! 2170 ' poe comida no jogo 
i 2180 ' 

: 2190 X = INT<220*RND(l))+i2 
| 2200 Y = INT(i60*RND(i> )+12 
í 2210 IF POINT < X , Y > <> 1 THEN GOTO 2190 
j 2220 PSET ( X , Y ) r 2 
| 2230 UT=VT+i 
í 2240 RETURN 
i 2250 ' 

! 2260 ' rotina de tempo 
! 2270 ’ 







2280 INTERVAL STOP 

2290 SOUND 0,255 

2300 SOUND i,XT/16 

2310 SOUND 7,254 

2320 SOUND 8,16 

2330 SOUND 11,0 

2340 SOUND 12,5 

2350 'SOUND 13,0 

2360 XT = XT - 1 

2370 PSET (XT, 187) ,1 

2380 INTERVAL ON 

2390 RETURN r 

2400 ' 

2410 ' COMEU UMA VITAMINA 
2420 ' 

2430 INTER VAL STOP 
2440 SOUND 2,0 

2450 FOR X = 15 TO 0 STEP -1 

2460 SOUND 3 , X 

2470 . SOUND 7,253 

2480 SOUND 9,10 

2490 NEXT X 

2500 SOUND 7,255 

2510 GOSUB 2160 

2520 PRESET <XC,YC> 

2530 IF LEN ( IDl ) < 240 THEN CT=CT+i0 
CT-0 

2540 FOR X ~ 1 TO 4 

2550 IF XT >240 THEN GOTO 2580 

2560 PSET ( XT , 187 ) , 1 i 

2570 X T = X T + 4 

2580 NEXT X 

2590 INTER VAL ON 

2600 RETURN 


AN4LISE 


ELSE 


Se você quiser fazer algumas modificações no 
programa, aqui vão algumas dicas. 

Na linha 1070 está definido o valor do RECORD 
quando o jogo começa. Se você quiser, pode alterar o valor 
10 para outro menor, tornando mais fácil a quebra do 
RECORO. 
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As Instruções do jogo estão entre as linhas 1120 
a 1260. Altere-as como quiser, ou eltmine-as para abreviar 
o tempo d e gravação. 

Oesde a linha 1460 até a linha 1560 esté a roti- 
na que o parabeniza por bater o RECORD. Você pode colocar 
na i s efeitos ou então modificar a música. 

0 número de vitaminas que aparecem no inicio de 
uma partida está definido na linha 1900. Ouanto mais vita- 
minas você colocar, mais fácil se torna o jogo. 

Na linha 1840 esté o ritmo no qual a minhoca 
perde energia. Se você o alterar para 60. por exemplo. a 
minhoca demora mais tempo para ficar sem energia. 

Usando a imaginação, muitas outras alterações 
poderão ser feitas. 


1 03 
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INSTRUÇÕES 


A tela de alta resolução do MSX não serve apenas 
para se fazer jogos com desenhos detalhados. O programa 
apresentado a seguir a utiliza para traçar o gráfico de 
qualquer função de uma variável prevlamente definida pelo 
usuár I o, dentro de um certo Intervalo. 

A função deve ser definida na linha 30 do pro- 
grama e a variável independente deve ser necessariamente 
s I mbo I I zada por X . 

A titulo de exemplo usamos a linha 

30 DEFFNR(X)=SQR(1-X*X> 

que corresponde i equação de uma s em I -c I r c u n f e r ê n c I a de 
raio unitário. 

f lg. 14.1 

•i i 

Quando executado, o programa pede a Introdução 
do menor e do maior valor que a variável Independente. X, 
deverá assumir. Ao Introduzir esses valores, deve-se tomar 
multo cuidado para não tornar o cálculo da função inviá- 
vel. gerando erros do tipo 

Illegal function call, Overflow, 

Division bu zero, Type mismatch. 

Em nosso exemplo, o intervalo válido para X es- 
tá entre -1 e 1. Experimente Introduzir dois valores 
quaisquer dentro desses limites. Por exemplo. 0 e 1. 0 
programa deverá construir o gráfico na tela. 
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Note que a figura produzida na tela não 6 per- 
feitamente simétrica. Isso acontece porque, para que a te- 
la seja usada em sua totalidade, a distância unitária na 
direção horizontal deve ser maior que a distância unitária 
na direção vertical. 

Agora, para se habituar com o programa. experi- 
mente as seguintes funções com os respectivos intervalos. 


» X*SIN ( X ) 


[-10, 103 


* X*COS<X> 


C-10,103 


» EXP(-X/20)*SIN(X> [0,903 


* SQR(ABS<X))*SIN(X) [-50,503 


DIGITACao 


Não há nenhuma observação Importante a ser feita 
com relação á digitação das linhas deste programa. 

Se você quiser economizar tempo, lembre-se de 
utilizar as linhas já Introduzidas para gerar outras li- 


nhas seme 1 hantes . 














10 ' Gráficos em alta resolução 
20 SCREEN 0 

30 DEF FNR<X>=SQR(1-X«X> 

40 INPUT"Menor X"*Xi 
50 INPUT"ha i or X"»X2 
60 SCREEN 2 

70 X=XisDi=(X2-Xi)/255 
80 Yi=FNR(X) :Y2=Yi 
90 FOR F=0 TO 255 
100 X=Xl+F#Di:B=FNR(X> 

110 IF B < Yi THEN Yi=B 
120 IF B > Y2 THEN Y2=B 
130 NEXT F 
140 D2=< Y2-Y1 )/19i 
150 IF D2=0 THEN D2=i 
160 K=-Xi/DisL=-Yl/D2 
170 IF Y1 > 0 THEN L=0 
1B0 IF Y2< 0 THEN L=19i 
190 IF XI >0 THEN K=0 
200 IF X2< 0 THEN K=255 
210 FOR F=0 TO 255 
220 X=Xi+F»Di 



| ^ 230 R=i9i-INT< .5+(FNR(X>-Yi)/D2) 

240 IF F=0 THEN S=F:T=R 
250 LI NE (S,T)-(F,R) :PSET(F,i9i-L) 

260 S=F : T=R 

f . 270 IF F > = 0 AND F< = i9i THEN PSET(K,i91- 
HM F) 

I 280 NEXT F 
i j 290 GOTO 290 

ANáLISE 

A compreensão do funcionamento do programa é 
multo mais fácil para aqueles que têm uma certa formação 
matemática. Se esse não for o seu caso. não se surpreenda 
por não entendi- I o I 

Na verdade o que ele faz é bastante slmplesl 
Apenas constrói o gráfico de uma função usando Intelramen- 
te a tela. 

A linha 30. como já sabemos, é onde. a função 
deve ser definida. As linhas 40 e 50 delimitam o Interva- 
lo em que o gráfico deve ser construído. 

A linha 70 define o valor 01 que será usado como 
passo (ou Intervalo) das absclssas. Esse valor 6 calculado 
de modo que toda a extensão horizontal da tela seja usada. 
Depois, da linha 80 à linha 130. calcula-se o intervalo da 
imagem da função, isto é. o menor e o maior valor que ela 
vai assumir quando a variável independente X varrer o In- 
tervalo determinado nas linhas 40 e 50. 

As linhas 140 e 150 definem o fator de escala DS 
de modo a fazer com que toda a extensão vertical da tela 
seja usada . 

Note que. em geral, os fatores Dl e 05 são dife- 
rentes. pois a tela não á um quadrado mas sim um retângu- 
lo. Em parte, é devido a Isso que os gráficos produzidos 
não são simétricos, mesmo quando seria de se esperar que 
fosseml Outro fator a ser levado em conta é que o Interva- 
lo de variação de Y não corresponde necessariamente ao in- 
tervalo de variação de X. 

As linhas de 160 è 500 determinam as posições em 
que os eixos X e Y devem ser traçados na tela. Essas posi- 
ções dependem respectivamente dos valores L e K. 

As linhas de 510 à 580 calculam o valor da fun- 
ção e o ponto correspondente da tela para cada valor de X 
entre 0 e 555. Esses pontos são ligados por linhas. tor- 
nando o traçado do gráfico continuo. 

Se vocã quiser um gráfico descontinuo. experi- 
mente alterar a linha 550 parai 

250 PSET<F,R):PSET<F,i9í-L> 
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INSTRUÇÕES 

Uma das mais interessantes aplicações dos com- 
putadores està na produção e manipulação de figuras tri- 
dimensionais. Através disso, podemos simular formas e mo- 
vimentos, analisando-os numa tela de vídeo. 

Os máximos expoentes que essas técnicas produ- 
ziram são conhecidos de todos nósi as “vinhetas eletrô- 
nicas". como as da televisão (bllm.blim). por exemplo. 

Essas belas Imagens que são apresentadas nos In- 
tervalos comerciais das TV s são produzidas por grandes 
computadores. A memória usada é imensa e a técnica envolve 
llngudgens refinadas, espec I f I camente desenvolvidas para 
confeccão e movimentação de figuras. Além disso, a veloci- 
dade de processamento é extremamente elevadal 

Nos micros. sem distinção. existem limitações 
Inerentes à arquitetura da eletrônica empregada. Um MI- 
CROCOMPUTADOR é fundamenta Imènte diferente de um COMPUTA- 
DOR. A capacidade de memória e a velocidade são multo me- 
nores e a linguagem empregada é. em geral, o BASIC. Em al- 
guns casos, um único comando de uma linguagem específica 
para traçados gráficos corresponde a dezenas de linhas do 
BASICI 

Desconsiderar as diferenças seria o mesmo que 
não fazer distinção entre uma caneta e uma máquina de es- 
crever ■ ambas servem para escrever em papel, ambas são 
operadas através dos dedos. etc... 

Apesar de tudo. o BASIC MSX nos permite algumas 
modestas experiências nessa área que. no entanto, já re- 
presentam um primeiro passo. O programa que apresentamos é 
capaz de gerar e movimentar, no vídeo. uma figura qual- 
quer, definida previamente pelo usuário. 

Para definir a figura. basta introduzir seus 
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vértices e indicar como eles devem ser ligados. 

Obviamente. é essencial a escolha de um sistema 
de coordenadas adequado. Vamos. desde já. convencionar o 
uso do sistema cartesiano t r i -or togona I representado na 
figura 15.1. 


X 



No programa, o plano XY é o plano da tela. O ei- 
xo Z é. portanto, perpendicular à tela e orientado como se 
estivesse saindo dela em direção ao usuário. 

Um CUBO. nesse sistema, pode ser representado 
pelo conjunto de vérticesi 


VI «< 1 

. 1 . 

1 ) 

V2= ( 

1 . 

1 

-1 ) 

V3= ( 1 

.-1 . 

1 ) 

V4 = < 

1 . 

-1 

-1 ) 

V5 s ( — 1 

. 1 . 

1 ) 

V6 = ( 

-1 . 

1 

-1 ) 

V7=( -1 

.-1 . 

1 ) 

V8= ( 

-1 . 

-1 

-1 ) 


flg. 15.2 v6 V2 



Entretanto. os mesmos vértices podem também re- 
presentar outra figura (fig. 15.3). 


V6 V2 



1 1 0 


Existe o seguinte problema> dado um conjunto de 
pontos, como interligá-los? Veja a figura 15.4. 



Note que os pontos são os mesmos e existem vá- 
rios modos de ligá-losl Necessitamos, pois. de uma notação 
que nos Indique i sso I 

Vamos usar a seguinte convencãoi 

* Colocaremos um algarismo O á esquerda do ponto 
se alguma linha partir dele (PONTO*). 

* Colocaremos um algarismo 1 è esquerda do ponto 
se alguma linha chegar até ele ( TRACO ) . 

Veja a figura 15.5. Cada figura é descrita. a- 
través dessa convenção, de uma forma distinta. Apesar de 
seus vértices serem os mesmos, evita-se qualquer confusãol 


f lg. 15.5 



0A1B101 M El Cl A / OA1 BI Cl Al F1 El Cl 01 El BI 01 F / 0A1F0B1C0D1E 

Agora não há mais como se atrapalharl Essa nota- 
ção é eficaz e será usada no. programai 

Vamos, novamente, representar um CUBO. Cada um 
de seus pontos será representado por 4 dígitos. 0 primeiro 
é o indicador ponto/traço (0 para ponto e 1 para tracol). 
Os outros três são as coordenadas do ponto naquele nosso 
sistema de coordenadas cartesianas. 
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0. 

1 . 

1 , 

1 


1 . 

1 . 

1 . 

-1 


1 . 

1 . 

-1 . 

-1 


1 , 

1 , 

-1 , 

1 

Representação dos vérti- 

1 , 

1 . 

1 . 

1 

ces do cubo com o indi- 

1 , 

-1 . 

1 , 

1 

cador de ponto ( 0 ) ou 

1 , 

-1 . 

1 . 

-1 

traço ( 1 ) . 

1 , 

-1 , 

-1 , 

-1 


1 , 

-1 . 

-1 . 

1 


i ; 

-1 . 

1 . 

1 


0, 

-1 . 

-1 . 

-1 


i , 

1 . 

-1 . 

-1 


0. 

-1 . 

-1 , 

1 


i , 

1 . 

-1 . 

1 


0. 

-1 , 

1 , 

-1 


1 , 

1 . 

1 . 

-1 



«coordenadas 

«Indicadori ponto (0)/traço (1) 


é exatamente desse jeito que se devem Inserir os 
pontos no programa. Imagine que você queira Introduzir os 
pontos listados anteriormente. Antes de mais nada, é ne- 
cessário atribuir á variável N% (na linha 30) o número de 
pontos que serão Introduzidos. 

Em nosso exemplo (na listagem), NX=1S. 
Para Introduzir o CUBO deve-se fazer N%=16. De- 
pois basta Introduzir os pontos a partir da linha 570. 

A sequência dos pontos é fundamental e deve-se 
tomar multo cuidado para não alteré-lal 

Com os pontos já colocados nas Instruções 
D A T A ' s . basta comandar RUN (ou F5 ) e o cubo surge na telal 


f lg. 15.6 



Antes de tentar colocar o CUBO no programa. ex- 
perimente executá-lo como ele está na listagem. Devem sur- 
gir na tela duas pirâmides ligadas por um vértice comum. 
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Existem 8 teclas (de F1 à F8 ) que permitem mover 
ou alterar a figura na tela. A seguir, descrevemos a fun- 
ção de cada uma delasi 


F1 

- Gira a 

figura no 

sentido direto ao 

redor 

do 


eixo Y . 





F2 

- Gira a 

figura no 

sentido retrógrado ao 

re- 


dor do 

eixo Y. 




F3 

- Gira a 

figura no 

sentido direto ao 

redor 

do 


eixo X. 





F4 

- Gira a 

figura no 

sent 1 do retrógrado 

ao 

r e- 


dor do 

eixo X . 




F5 

- Afasta 

a f I gura. 

diminuindo suas coordena- 


das ao 

longo do eixo Z . 



F6 

- Aproxima a figura 

. aumentando suas 

coorde- 


nadas ao longo do 

eixo Z . 



F7 

- Aumenta 

i o efeito 

de perspectiva. 



F8 

- Dlml nu 1 

o efeito 

de perspectiva. 




Experimente algumas vetes cada uma dessas te- 
clas. Depois, tente criar e Introduzir outras figuras (o 
CUBO. por exemp I o I ) . 

DIGITAC30 

O programa não oferece dificuldades de digita- 
ção. Ele é curto e. em geral, há apenas uma Instrução em 
cada linha. 

Se você quiser economizar tempo, utilize as li- 
nhas já Introduzidas para produzir outras. A seguir, divi- 
dimos as linhas semelhantes em grupos. 


*1 0 
*20 
*30 


*«10,80.50 

*60 

*70. 1 00. 1 «10. 21 0. 280. 350. «120 
*90 

* 110.120 

*130,1 70. 250. 320. 390. «160 
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* 150.1 60 
*180 
*1 90 

*20 0 . 270. 34 0 . 410 . < 180 . 500 . 520 . 540. 560 

* 220 . 230 . 290 . 300 . 360 . 370 . 430.440 

* 240 . 310 . 380.450 

* 260 . 330 . 400.470 

* 490 . 510 . 530.550 

* 570 . ... 




í 


;iô ' Perspectivas Tr i -D i mens i ona i s 
20 FOR F=i TO 8:KEY<F)0N:NEXT F 
i 3® N%=12 : COLOR 1,9, Bs SCREEN2 
4<ò DIM I<NX),X(NZ>,Y(NZ>,Z<NZ) 

50 DIM S(NZ>,T<NZ)eJZ=5:KX=i:EZ=100 
60 S=SIN< .2) sC=COS< .2) 

70 FOR FZ=i TO NX 

80 READ I<FZ),X(FZ),Y(FZ),Z< FX ) 

90 Z(FX)=-Z(FX) SNEXT FX 
100 FOR FZ=i TO NX 

110 S(FZ>='i20+X<FZ)#EZ/(KX#Z(FX>+JZ) 

120 T (FZ)=86-Y<FX)»EZ/(KZ#Z<FZ)+JZ> 

130 NEXT FX ! CLS 
140 FOR FX=i TO NX 

150 IF I < FX > =0 THEN PSET ( S ( FX ) , T ( FX ) ) 
160 IF I ( FX ) =1 THEN LINE ( S ( FX ) , T ( FX ) ) - ( 
S<FZ-i),T(FZ-i)) 

170 NEXT FX 

180 ON KEY GOSUB 200,270,340,410,480,50 

0,520,540 

190 GOTO 180 

200 ' Gira a frente para a direita 

210 FOR FZ=i TO NX 

220 X=X<FX)*C-Z<FZ)#S 

230 Z=Z(FZ)#C+X(FZ)#S 

240 X(FX)=X:Z<FX)=Z 

250 NEXT FX 

260 RETURN 100 

270 ’ Gira a frente para a esquerda 
280 FOR FZ=i TO NX 
290 X=X(FZ)*C+Z( FX ) *S 
300 Z=Z(FZ)*C-X(FZ)«S 
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310 X<FX)=X:Z<FX)=Z 
320 NEXT FX 
330 RETURN 100 

340 ' Gira a frente para baixo 

350 FOR FX=i TO NX 

360 Y=Y(FX)*C+Z(FX>«S 

370 Z=Z<FX)*C-Y<FX>#S 

380 Y(FX)=Y:Z(FX)=Z 

390 NEXT F% 

400 RETURN 100 

410 ' Gira a frente para cima 
420 FOR FX= 1 TO NX 
430 Y=Y<FX>*C-Z<FX)*S 
440 Z=Z<FX)*C+Y(FX)*S 
450 Y(FX)=Y:Z(FX)=Z 
460 NEXT FX 
470 RETURN 100 
480 ' Afasta 
490 JX= JX#2 : RETURN 100 
; 500 ’ Aproxima 
j 510 JX=JX/2s RETURN 100 
i 520 ' Aumenta a perspectiva 
j 530 KX=KX*2s RETURN 100 
Í540 ' Diminui a perspectiva 
I 550 K X=K X/2 s RETURN 100 
i 560 ' Dados = > ( p/t , x , y , z ) 


i 570 

DATA 

0 

r 

-3 

r 

0 

9 

0 

i 580 

DATA 

1 

r 

0 

9 

0 

,-3 

590 

DATA 

1 

r 

0 

9 

-3 

r 

0 

600 

DATA 

1 

9 

-3 

9 

0 

9 

0 

610 

DATA 

1 

r 

3 

9 

0 

9 

0 

620 

DATA 

1 

9 

0 

9 

0 

9 

3 

630 

DATA 

1 

9 

0 

9 

3 

9 

0 

640 

DATA 

1 

9 

3 

9 

0 

9 

0 

650 

DATA 

0 

9 

0 

9 

0 

9 

3 

660 

DATA 

1 

9 

0 

9 

0 

9 

-3 

; 670 

DATA 

0 

9 

0 

9 

-3 

9 

0 

680 

DATA 

i 

9 

0 

9 

3 

9 

0 



ANáLISE 


A linha 20 aciona as interrupções através das 
teclas de funções (de F1 à F8). 

A linha 30 define a variável NU. (número de pon- 
tos) e a tela a ser usada. 

As linhas de 40 à 90 iniciam algumas outras va- 
riáveis. simples e Indexadas, do programa. Note que há uma 
matriz para cada coordenada espacial da figura (X.Y.Z) e 
uma matriz para o indicador ponto/traco (I). Há. ainda 
duas matrizes (S e T). apenas dimensionadas, para armaze- 
nar as coordenadas dos pontos na tela. 

0 laço entre as linhas 100 e 130 calcula, a par- 
tir das coordenadas espaciais (X.Y.Z). as coordenadas na 
tela dos pontos da figura. Essas coordenadas são armazena- 
das nas matrizes S e T. 

0 lago seguinte, de 140 a 170. efetiva o desenho 
na tela. isto é. ele constrói a figura. 

As linhas 180 e 190 permitem controlar a figura 
a partir das teclas de funções (de F1 á F8). Cada uma des- 
sas teclas desvia o programa para uma sub-rotina diferen- 
te. Essas sub-rottnas realizam transformações geométricas 
sobre os pontos da figura, produzindo rotações. desloca- 
mentos e deformações. Não é nossa Intengão explicá-las. 
apesar de serem bastante simples. Se vocã quiser entendê- 
las. procure em algum bom livro de álgebra linear a parte 
de transformações. Isso, entretanto, pressupõe conhecimen- 
tos a nível de segundo grau. 

Quatro parâmetros do programa merecem ser ressalta- 
dos. pois são fundamentais para a movimentação das figu- 
ras. Dois deles, o S e o C. são definidos na linha 60 e 
determinam de quanto em quanto a figura gira quando a te- 
cla F1 . F2. F3 ou F4 é pressionada. Inicialmente usamos 
S = S I N( .2 ) e C=C0S(.2). Experimente fazer S = S I N ( .1 ) e 
C=C0S(.1). Você notará que assim a rotação da figura se 
torna menos acentuada. Outros valores podem ser experi- 
mentados para S e C. contanto que se respeite a condlcãoi 
S*S + C*C = 1 . 

Os outros dois parâmetros. J% e KV são defini- 
dos na linha 50 e determinam respectivamente a variação da 
distância e do efeito de perspectiva quando a tecla FS. 
F6. F7 ou F8 é usada. Como exemplo. usamos J%=5 e K%=1. 
Experimente fazer. JH=1 e K%=.9 . 

Outro parâmetro. o fator de escala EU também 
pode ser alterado. Usamos E\=100. Teste E%=50 e E%=400. 
Deve ficar claro porque chamamos E% de fator de escala. 

Agora que já explicamos o programa, daremos duas 
sequências de pontos que geram a projeção de um tesseracto 
(fig. 15.8) e uma multl-cruz (fig. 15.9). mas antes, in- 
troduza os dados necessários para a geração do cubo na te- 
la. Lembre-se de alterar o valor de N% na linha 30 para 
cada figura que você Introduzirl 
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DADOS DO CUBO: 


N"fc = 16 

i i*!: í 

560 

' Dados =>(p/t 

x,y 

2 ) 

| S 

570 

DATA 0 , i 

r i 

, i 


\ 

580 

DATA 1 , i 

, i 

,-i 


\ ^ \ 

590 

DATA 1 r i 

,-i 

,-i 


| 

600 

DATA i , i 

,-i 

, i 


I * 1 

5 ^ 

610 

615 

DATA 1 , i 

r 

, i 

, i 


j # 1 

620 

DATA 1 ,-i 

, i 

, i 



630 

DATA i ,-i 

, i 

,-i 


f } 

640 

DATA i ,-i 

,-i 

,-i 


í & : 

650 

DATA 1 ,-i 

r-i 

, i 


S • i 

660 

665 

DATA i ,-i 

r 

, i 

, i 


$ i 

670 

DATA 0 ,-i 

,-i 

,-i 


i & | 

680 

685 

DATA i , i 

W 

,-i 

,-i 


? á& ! 

690 

DATA 0 ,-i 

,-i 

, i 


i w : 

700 
7i 0 

DATA i , i 

r 

,-i 

, i 


! • I 

720 

DATA 0 ,-i 

, i 

,-i 


{ 7 30 DATA í , i 

DADOS 00 TESSERACTOi 

, i 

,-i 


NU. = 36 

m ; 

560 

' Dados = > ( p/t , 

! : , y , 

z) 

570 

DATA 0 ,-i 

,-i 

,-i 


:?* ! 

580 

DATA 1 , 1 

,-i 

,-i 


W . 

590 

DATA 1 , 1 

,-i 

, i 



600 

DATA 1 ,-i 

,-i 

, 1 


; 0 i 

610 

615 

DATA 1 ,-i 

t 

,-i 

,-i 


# | 

620 

DATA 1 ,-i 

, i 

,-i 



630 

DATA 1 , i 

, i 

,-i 


! S í 

'640 

DATA 1 , 1 

, i 

, i 



650 

DATA i ,-i 

, i 

, i 


# | 

660 

665 

DATA 1 ,-i 

r 

, i 

,-i 


! 

670 

DATA 1 , -2 

, 2 

, -2 
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680 

DATA 

i 

r 

2 

r 

2 

9 

-2 

690 

DATA 

i 

r 

2 

9 

2 

9 

2 

700 

DATA 

i 

r 

-2 

9 

2 

9 

2 

710 

DATA 

i 

t 

-2 

9 

2 

9 

-2 

7i5 

r 








720 

DATA 

i 

t 

-2 

9 

-2 

9 

-2 

730 

DATA 

i 

9 

2 

9 

-2 

9 ' 

-2 

740 

DATA 

i 

9 

2 

9 

-2 

9 

2 

750 

DATA 

1 

9 

-2 

9 

-2 

9 

2 

760 

DATA 

i 

9 

-2 

9 

-2 

9 

-2 

765 

r 








770 

DATA 

i 

9 

-i 

9 

-i 

9 

-i 

780 

DATA 

0 

9 

i 

9 

i 

9 

-i 

785 

r 








790 

DATA 

i 

9 

2 

9 

2 

9 

-2 

800 

DATA 

i 

9 

2 

9 

-2 

9 

-2 

8i0 

DATA 

i 

9 

i 

9 

-i 

9 

-i 

820 

DATA 

i 

9 

i 

9 

i 

9 

-i 

830 

DATA 

0 

9 

i 

9 

i 

9 

i 

835 

r 








840 

DATA 

i 

9 

2 

9 

2 

9 

2 

850 

DATA 

i 

9 

2 

9 

-2 

9 

2 

860 

DATA 

i 

9 

i 

9 

-i 

9 

i 

870 

DATA 

i 

9 

i 

9 

i 

9 

i 

875 

9 








880 

DATA 

0 

9 

-i 

9 

i 

9 

i 

890 

DATA 

i 

9 

-2 

9 

2 

9 

2 

900 

DATA 

i 

9 

-2 

9 

-2 

9 

2 

9i0 

DATA 

i 

9 

-i 

9 

-i 

9 

i 

920 

DATA 

i 

9 

-i 

9 

i 

9 

i 
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DADOS DA MUL T I -CRUZ 
N% = 48 



560 ’ Dados = > < p/t , x , y , z ) 
570 DATA 0 ,-i , i , 3 

580 DATA i , 1 , 1 , 3 

590 DATA i , i ,-i , 3 

600 DATA i ,-í ,-i , 3 

6i0 DATA i ,-i , i , 3 

620 ' 
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m 

630 

DATA 

i 

,-i 

, i 

, “3 


640 

DATA 

í 

r í 

, i 

, -3 

•£* 

650 

DATA 

i 

, i 

,-i 

, "3 


660 

DATA 

í 

,-i 

,-i 

, -3 


670 

DATA 

í 

,-i 

, i 

, -3 


680 

690 

7 

DATA 

0 

, 3 

, i 

, i 

# 

700 

DATA 

i 

, 3 

, i 

,-i 


7Í0 

DATA 

1 

, 3 

,-i 

,-i 


720 

DATA 

í 

, 3 

,-i 

, i 


730 

DATA 

i 

, 3 

, i 

, i 


740 

750 

7 

DATA 

i 

, “3 

, i 

, i 


760 

DATA 

i 

, "3 

, i 

,-i 


770 

DATA 

i 

, -3 

,-i 

,-i 


780 

DATA 

i 

, -3 

,-i 

, i 


790 

DATA 

í 

, “3 

, i 

, i 

*■ 

800 
Oi 0 

9 

DATA 

0 

,-i 

, 3 

, i 

# 

820 

DATA 

í 

,-i 

, 3 

,-i 


030 

DATA 

í 

, i 

, 3 

,-i 

m 

840 

DATA 

i 

, i 

, 3 

, i 


050 

DATA 

i 

,-i 

, 3 

, i 

# 

860 

070 

r 

DATA 

i 

,-i 

, ~3 

, i 


880 

DATA 

i 

,-i 

, -3 

,-i 

# 

090 

DATA 

i 

, i 

, ~3 

,-i 


900 

DATA 

i 

, i 

, -3 

, i 

# 

910 

DATA 

i 

,-i 

, -3 

, i 

& 

920 

930 

r 

DATA 

0 

, i 

, i 

, 3 


940 

DATA 

i 

, i 

, i 

, “3 


950 

960 

7 

DATA 

0 

, i 

,-i 

, 3 

:?70 

DATA 

i 

, i 

,-i 

, -3 

# 

980 

990 

r 

DATA 

0 

,-i 

,-i 

, 3 

# 

1000 

DATA 

i 

,-i 

,-i 

, -3 


10Í0 

1020 

- 

DATA 

0 

, i 

, 3 

, i 



fig. 15.9 
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1030 

1040 

DATA 

r 

1 

, 1 

,-3 

, i 

1050 

DATA 

0 

, i 

, 3 

,-i 

1060 

1070 

DATA 

r 

1 

, i 

,-3 

,-i 

1080 

DATA 

0 

,-i 

, 3 

,-i 

1090 

1100 

DATA 

t 

1 

r — 1 

r “3 

,-i 

1110 

DATA 

0 

, 3 

, í 

,-i 

1120 

1130 

DATA 

r 

1 

, “3 

, i 

,-i 

1140 

DATA 

0 

, 3 

,-i 

,-i 

1150 

1160 

DATA 

t 

1 

t -3 

,-í 

,-i 

1170 

DATA 

0 

, 3 

,-i 

, 1 

1180 

DATA 

1 

,-3 

,-i 

, i 


f 19. 


Tanta vocí mesmo definir esta flgura> 



flg. 15.11 



iao 


PICASSO 



INSTRUÇÕES 

fl pintura (rupestre) é a mais antiga forma de 
comunicação "escrita". 

A arte evoluiu tecnicamente até um.bom nível na 
época dos gregos e romanos, de certa forma regrediu duran- 
te a Idade Média e teve um novo impulso a partir do Renas- 
cimento. As técnicas foram sendo aperfeiçoadas e a arte 
figurativa atingiu requintes de perfeição. 

Uma pintura podia parecer a reprodução de uma 
foto colorida. Daí o nascimento da Arte Moderna que se 
prende apenas a sentimentos e não a coisas existentes na 
natureza ou ao seu redor. 

No programa Picasso a sua tela é oferecida è sua 
imaginação. Antes de rodá-lo. acione CAPS LOCK (trava.de 
ma i úscu I as ) . 

Ao ser executado, o programa gera. no centro da 
tela, um lápis que poderá ser conduzido pelas setas ou pe- 
lo joystick a qualquer ponto da tela. 

Para desenhar um ponto aperte a barra de espaços 
ou o disparador do joystick. 

O comando " 0 " desenha na parte inferior esquerda 
da tela um mostruário de cores. 

O comando "A" apaga a tela e desenha o mostruá- 
rio de cores. 

O comanda "P" pinta toda a região ao redor do 
lápis até encontrar uma borda da mesma cor. 

O comando "DEIETE” apaga os arredores da ponta 

do lápis. 

O comando ”9“ é utilizado para mudar a cor do 
lápis. Após colocar a ponta do lápis em cima da cor dese- 
jada no mostruário, pressione a tecla "9“. 

O comando ”C~. na primeira vez que é acionado. 


1 21 


define o centro da circunferência e. na segunda, traça uma 
circunferência com o ralo do centro (jí definido) até a 
9 o s I ç ã o atual do tépls. 

0 comando "L". na primeira vez. define a extre- 
midade de uma linha. Seguindo este comando existem outros 
três . L.B.F 

L traça uma linha de um ponto já definido até o 

I ép I s . 

B traça um quadro vazio, tendo como um dos vér- 
tices o primeiro ponto definido e. como outro, oposto ao 
primeiro, o ponto em que esté o lápis. 

F é como B. s 6 que o quadro é pintado. 

O comando "S" traça linhas com origem no último 
ponto definido com ”1“ ou “1“ até o lápis. 

O comando " 1 " traça linhas com origem no último 
ponto definido até o lápis e redefine o ponto na posição 
atual do lápis. 

Agora deixe sua Imaginação voar e mãos à obra. 

DIGITAÇ20 

As linhas de 320 a 400. de 470 a 570 e de 590 a 
660 podem ser digitadas como foi explicado no capitulo 1 . 

0 programa é composto de 70 linhas. 

10 'P icasso 

20 COLOR 15,1,1* SCREEN 2 

30 DRAU"C15S6Bhi68,175E7D7UH3GFBUBR6EU3 
HGD6FRNE3R4NU6R2U3R 3D3NL3BU2R" 

40 DRAU"BR8BU3R4D8L4U4NR4U4BR7NR4D4R3FD 

3GL3S4" 

50 CIRCLE (128,88) ,80,13 
60 LI NE ( 0 , 0 ) - ( 50 , 50 ) , 7 , B 
70 LINE <9 , 9 ) - < 41 , 41 ) , 5 , BF 
80 FOR F=60 TO 190 : PSET ( F , 88 > , 1 1 : NEXT F 
90 CIRCLE (128,88),30,il:PAINT(i29,87), 

11 

100 FOR F = 60 TO 191 STEP 2 
110 LINE(128,i68)-(F,88) , lis NEXT F 
120 FOR F=38 TO 66 STEP 7 
130 CIRCLE(128,88),F,il 
140 NEXT F 

150 FOR F =0 TO 750 : NEXT F 
160 SCREEN 0 

170 CLS SPRINT" P ICASSO" 

180 PR INT SPRINT" ESCOLHA:" 
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1 í. 90 PRINT:PRINT"<0) TECLADO" 
j 2O0 PR INT" ( i ) JOYSTICK" 

! 210 LOCATE0 , 7 : LINE INPUT"OPCAO =>";A3i 
i 220 IF VAL < Aí ) > 1 OR VAL ( Aí ) < 0 THEN 21 
| 0 

í 230 IF VAL ( Aí ) >0 THEN J=i ELSE J=0 
í 240 SCREEN2 , , 0 : Pí="" 
j 250 FOR F=i TO 8 

1260 READ Xí :TÍ=CHRÍ(OAL("&B"+XÍ) ) 
j 270 Pí-Pí+Tí 
t 200 NEXT F 
\ 290 SPR I TEí < 1 ) =Pí 
300 X=128:Y=88:C<=13 
í 310 PUT SPR ITE 0, ( X , Y ) , C , 1 
j 320 IF STICK ( J ) =0 THEN 450 
j 330 IF STICK < J ) = 1 THEN Y=Y-i 
j 340 IF STICK ( J ) =5 THEN Y=Y+i 
j 350 IF STICK < J/-3 THEN X=X + i 
! 360 IF STICK <J>=7 THEN X=X-i 
j 370 IF STICK(J)=2 THEN X=X+i:Y=Y-i 
j 380 IF STICK ( J>=4 THEN X=X+1:Y=Y+1 
; 390 IF STICK ( J)=6 THEN X=X-i:Y=Y+l 
! 400 IF STICK ( J ) =8 THEN X=X-i:Y=Y-i 
S 410 IF X >255 THEN X=0 
i 420 IF Y > 1 91 THEN Y=0 
| 430 IF Y < 0 THEN Y=19i 
i 440 TF X<0 THEN X=255 
í ^50 IF STRIG(J>=— 1 THEN PSET(X,Y),C 
1 460 Ií=INKEYí s IF Ií="" THEN 310 
! 470 IF lí="0" THEN PLAY"A" : GOSUB 670 
i 480 IF I í="A" THEN PLAY"B":CLS:GOSUB 67 

! V> 

! 490 IF IÍ="C" THEN IF CI=0 THEN PLAY"C" 
j : CX=X s CY=Y s CI = 1 ELSE PLAY"D" : R = ( CX-X ) A 2 
! ♦ (CY-Y) A 2:CIRCLE ( CX r CY ) , SQR ( R ) , C : CI=0 
| 500 IF I %-"L" THEN IF LI=0 THEN LX=X:LY 
Í=Y:LI=i ELSE LI=0 : LINE ( LX , LY ) - < X , Y ) , C 
i 510 IF Ií="B" AND LI=1 THEN LI=0:LINE(L 
j X , L Y ) -- ( X , Y ) ,C,B 

{ 520 IF IÍ="F" AND LI=i THEN LI=0:LINE(L 
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X,LY)-(X r Y),C r BF 

530 IF I4="P" THEN P AINT ( X , Y+i ) , C 
< 540 IF I4="2" THEN LINE ( LX , LY ) - < X , Y ) r C 

í 550 IF I4="l" THEN LINE ( LX , LY ) - < X , Y ) , C : 
S LX=X * LY=Y 

i 560 IF I4=CHR4 ( 127 > THEN L INE < X-i , Y > - < X 
í f Y+l ) , 1 , BF 

j 570 IF I4="9" AND POINT < X+i , Y+l > < > 1 THE 
N C=POINT<X+l,Y+l> 

I 580 GOTO 310 

590 DATA 10000000 
| 600 DATA 01100000 

610 DATA 01110000 
620 DATA 00101000 
1 630 DATA 00010100 

640 DATA 00001010 
650 DATA 00000111 
! 660 DATA 00000010 

j 670 FOR F=0 TO 15 

680 G=F«8sLINE<G, 188 )-<G+4,191) ,F,BF 
j 690 NEXT F 
700 RETURN 


AN4LISE 


zaremos. 
e o ano. 


Na linha 20 definimos a cor e a tela que utill- 
Nas linhas 30 e 40 fazemos a assinatura do autor 


Na linha 50 fazemos um cfrculo no centro da tela 
com ralo 80 e cor 13. 

Nas linhas 60 e 70 desenhamos dois quadrados 
sendo o primeiro vazio e o outro cheio. 

Na linha 80 traçamos um risco da coordenada x = 60 
até x=190. ponto a ponto. 

Na linha 90 desenhamos uma circunferência de 
ralo 30 e pintamos metade dela. 

As linhas de 100 á 110 traçam várias linhas com 
origem na parte mais inferior da circunferência até a li- 
nha central. 

As linhas de 120 á 140 fazem várias circunferên- 
cias concêntricas de ralos diferentes. 

Na linha 150 executamos uma pausa. 

Na linha 160 voltamos à tela de texto. 

Da linha 170 à 200 são Impressos no vídeo o nome 
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do programa e as opções do teclado e joystick. 

Na linha 210 Introduzimos a opção. 

Na linha 220 verificamos se a opção existe. 

Na linha 230 verificamos qual foi a opção. 

Na linha 2*10 definimos a tela de alta resolução 
e neutralizamos o som do teclado. 

Oa linha 250 à 290 hã a leitura dos dados para o 
sprlte e sua definição. 

Na linha 300 definimos as coordenadas X.Y e tam- 
bém a cor. 

Na linha 310 desenhamos o sprlte na tela. 

Oa linha 320 á’400 há a leitura do teclado (joy- 
stick) com o movimento do lápis. 

Oa linha 410 à 4*10 verificamos a posição do 

sprlte. 

A linha 450 verifica se a barra de espaço (botão 
de disparo) foi acionada e, em caso positivo, um ponto é 
marcado nesta coordenada com a cor do lápis. 

A linha 460 faz a leitura do teclado e verifica 
se há alguma tecla pressionada. 

Da linha 470 á 570 veriflca-se se foi acionada 
alguma tecla de comando do lápis. 

A linha 580 retorna a execução para a leitura do 
teclado (joystick). 

Da linha 590 á 660 são definidos os caracteres 
componentes do lápis (o desenho do lápis). 

Nas linhas de 680 a 700 está a rotina que dese- 
nha os retângulos com cores, no canto Inferior esquerdo da 
tela. Esse á o mostruário de cores. 
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CRA8 CANiON 



INSTRUÇÕES 

Johan Sebastian Bach. nascido no ano de 1685 em 
Elsenach, Saxônia e falecido em Lelpzlg aos 75 anos. ja- 
mais imaginaria que sua música pudesse, um dia. ser execu- 
tada com precisão acima de qualquer crítica por uma máqui- 
na. Ainda mais que qualquer pessoa, mesmo sem saber tocar 
qualquer Instrumento, pudesse ler e transcrever rapidamen- 
te suas partituras para que esta máquina pudesse executá- 
las. 

O programa que apresentamos é a transcrição da 
um pequeno canon de Bach para a notação musical cifrada do 
MSX. Com multo propósito, ele tem o nome de CRAB-CANON 
(Canon do Caranguejo). Note que a sua partitura possui uma 
fantástica simetria. envolvendo duas vozes! Experimente 
obse r vá- I a ' num espelho. 

Se você estiver interessado nessa e em outras 
peculiaridades do Crab-Canon de Bach. procure ler (Infe- 
lizmente em inglês. pois não há tradução!) o não menos 
fantástico livro de Douglas R. Hofstadteri GOEOEl . ESCHER. 
BACH, AN ETERNAL GOLDEN BR A I 0 . 

Para usar o programa, é só comandar RUN e RETURN 
(ou F5 ) e regular o volume do monitor de soml 

Aos ouvidos mais exigentes, uma dica. ligue a 
saída AUDIO do Expert à entrada AUX de seu amplificador e 
regule o som da forma que você quiser. A diferença entre o 
som assim obtido e o do monitor é bastante significativa. 

DIGITAC20 

Uma única letra (ou símbolo) incorreta ou não 
Introduzida será o suficiente para transformar o CRAB- 
CANON num CR ACK-CANNON e deixar seu ouvinte multo CRABBY . 
portanto, muita atenção ! ! I 
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10 ' CRAB-CANON 

20 PLAY"vi0t 120", "v9t 120" 

30 PLAY"o312ce— gf ","o314ce-go4cl 8o3bo4c 
de-f e-dc" 

40 PLAY"o21 12br4o312gfH", "o41 8do3go3df e 
-dco3babo4ce-" 

50 PLAY"o31 2f ee-d" , "o41Bdco3baga-b-o4d- 
co3b-a-gfgfga-a-" 

60 PLAY"o31 4dd-co2bgo3ce-" , "o31 8b-gf e-d 
c-fgfe-db-" 

70 PLAY"o31 2e-dce-" , "o31 8gf e-o4co3bagf e 
-de-go4co3gfg" 

80 PLAY ,/ o318gfgo4co3ge-de-fgabo4co3e-fg 

","o312e-cde-" 

90 PLAY"o318a-de-f gfe-de-fga-b", "o31 4fc 

o2gbo3cd-" 

100 PLAY"o318b-a-gfga-b-o4cd-o3b-a-gabo 

4d" , "o31 2e-ef f W" 

110 PLAY"o41 8e-co3babo4cde-fdo3go4dcde- 
*' /, ,"031 4ggr4o2bbo3aa" 

120 PLAY"o41 8e-dco3bo4co3ge-c" , "o31 2 ge- 


AN4LISE » 

Todas as linhas do programa têm a mesma funcãot 
gerar sons musicais através de dois canais independentes. 
A sintaxe usada da instrução PLAY em todas as linhas f o i • 

PLAY"sub-comandos musicais da primeira voz", 
"sub-comandos musicais da segunda voz" 

Os sub-comandos à esquerda da vírgula são execu- 
tados através do canal 1 e. I ndependen t emen . e . os sub-co- 
mandos à direita da vírgula são executados através do ca- 
nal 2. 
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($ALTARELI_0 



Vincerwo Galtlei. pai do grande Galileo. viveu 
durante o Renascimento. na I té I la. e foi um dos grandes 
i ncenti vadores da ópera, então nascente. Sua música Salta- 
re I lo. como o nome sugere, é alegre e expontânea, transmi- 
tindo com precisão o clima da época em que foi feita. 

Mais uma vet. para usar o programa, basta execu- 
té-lo, e preferencialmente, com a saída fl'uO I O do Expert 
conectada á entrada flUX de um amplificador. 

DIGITAC20 

SALTAREllO é uma bela música para deixé-lo ale- 
gre. Se voei esquecer ou alterar alguma nota. pode trans- 
formé-la numa marcha fúnebre! Cuidado ao digitar o progra- 
ma 1 

$ i 10 ' SALTARELLO 

j 20 PLAY"vi0t 180" r "v9t 180" 

^ í 30 PLAY"o418deL4fHg" r "14oido2ao3d" 

V i 40 PLAY"o41 2al 4bgea","l 4oido2ao3doido2a 
I o3d 

• I 50 PLAY"o41 2f H . 1 Bedef Hge", "oi 1 4do2ao3do 
: ido2ao3d" 

^ i 60 PLAY"o41 2f Hg 1 4e . 18f M", "oi 1 4do2ao3doi 
; do2ao3d" 

@ ! 70 PLAY"o412d..l8el4fHg","14oido2ao3doi 
! do2ao3d" 

$ ^ ; 80 PLAY"o41 4e abgea","14oido2ao3doido2ao 

| • : 3d" 
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90 PLAY"o412ftt.l8edefttge","14oiuo2ao3do 
ldo2ao3d" 

100 PLAY"o41 8f #f*tgfHedcHo3bo4cttdef H","l 
4oido2ao3doí do2ao3d" 

110 PLAY"o412d . 14ftted","14oido2ao3doido 
! 2ao3d" 

i Í20 PLAY"o41 1 f tt 1 4ed" t "1 4oiDo2ao3DoiDo2a 
\ o3d" 

) i 30 PLAY"o41 2a . 1 4f tted" »"1 4oido2ao3doido 
í 2ao3d" 

| i 40 PLAY"o412agl Beeef tt" , "1 4oido2ao3doid 
i o2ao3d" 

1 150 PLAY"o412d.l8gfttl4ed'V'14oido2ao3do 

ido2ao3d" 

160 PLAY"oo41 2ftt.l8gfW14ed" ,"14oido2ao3 
1 doido2ao3d" 

; 170 PLAY"o41 2a . 1 8edef Hge" ,"14oldo2ao3do 

ido2ao3d" 

j 180 PLAY"i.418f«fMefMgf«edcHdefH /, ,"oil4d 
o2ao3doido2ao3d" 

190 PLAY"o412d. 1 8o3del 4f Hg" , "1 4oldo2ao3 
doido2ao3d" 

i 200 PLAY"o31 4aabgea" , "1 4oido2ao3doí do2a 
: o3d" 

i 210 PLAY"o31 2f H . 1 Bedef Hge" , "1 4oldo2ao3d 
! oldo2ao3d" 

j 220 PLAY"o318fHfHgfHedcHo2bo3cHdefH","l 
j ioid." 

i 230 PLAY"o312d.l4fHed","14oido2ao3doido 
j 2ao3d // 

; 240 PLAY"o312fH.14fHed","14oldo2ao3dold 

: o2ao3d" 

: 250 PLAY"o31 2a . 1 4f Hed", "1 4oldo2ao.3doido 

2ao3d" 

260 PLAY"o314al8gfHedcHo2bo3cHdefH","l 1 
; old." 

270 PLAY"o31 2 d . o41 8gf Hl 4ed" , "1 4oido2ao3 
doldo2ao3d" 

280 PLAY"o412fH.18gfHefHdd" r "14oldo2ao3 
| doido2ao3d" 
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$ ; 290 PLAY"o41 2a . 1 8gf Wef Hge","14oldo2ao3d 
! oido2ao3d" 

® j 300 PLAY"o41 8f Hgaf Hgagf ttedef H","oí 1 4do2 
; ao3doldo2ao3d ,/ 

^ i 310 PLAY"lid","14oído2ao3dold" 

AN4LISE 

Dois canais de som são utilizados. Todos os sub- 
comandos sonoros è esquerda da virgula são executados pelo 
canal 1 e. os que estão ã direita da virgula, pelo ca- 
nal 2. 

Experimente alterar a linha 20. deixando-a 

ass im> 

2® PLAY"vi5t255m5000s0", "vi It255m5000s0" 

Oessa forma, o som ficarã semelhante ao da um 
piano elétrico. Com algumas tentativas, você poderi con- 
seguir sons mais sofisticados. Para dominar melhor o co- 
mando PLAY. consulte o livro LINGUAGEM 0ASIC MSX a partir 
da pãg I na 119. 



132 




INSTRUÇÕES 


tos 

MSX 


Os seis 
sonoros usando 


programas aqui apresentados geram etei- 
o Gerador de Som Programável ( PSG ) do 


Você poderá usá-los como suB-rotmas para 
mentar jogos ou sinalizar programas « » " ' ** r ' • 

Oigite-os. um de cada vez. e comande RUN. 
ouví-los com maior qualidade, você pode também 
Expert a um amplificador. 


imp I e- 

Par a 
ligar o 


DIGITACSO 

Não há dificuldade em digitar nenhum dos seis 
programas. Todos são bastante curtos e simples. 


í 

■: 


# 





ATERRISSAGEM 

10 SOUND 7,56: SOUND 8,i5:S0UND 9,0:SOUN 
D í 0 , 0 : FOR L=0 TO 51i:F0R M=L TO L+50 S 
TEP 8 : SOUND 0,M MOD 256:S0UND i,h\256:N 
EXT M , L 

20 SOUND 7,7: SOUND 8,16:S0UND 12,32:SOU 
ND 6,0: SOUND 13,i5:F0R 1=1 TO 500:NEXT 
I : SOUND 13,0: END 



CAMPAINHA 

10 DATA 100,125,112,170,170,112,100,125 
20 RE ST ORE •' SOUND 7,56:S0UND 8,16:S0UND 
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1,0: SOUND 12,36:F0R 1 = 1 TO 8:READ A:SOU 
ND 0 , A : SOUND 13,0:FOR L = i TO 400:NEXT L 
: IF 1 = 4 THEN FOR L=1 TO -400:NEXT L : NEXT 
I ELSE NEXT I:END 


f s ALARME 1 

j ® I 10 SOUND 7,56: SOUND 8,15:S0UND 1,0 

j 20 SOUND 0 , 50 : FOR I = i TO 200:NEXT USOU 
j © i ND 0, 100:FOR 1=1 TO 200:NEXT I:GOTO 20 

ALARME 2 

& I 10 SOUND 7 , 56 : SOUND 8,15:S0UND 1,0 

i 20 FOR L=230 TO 100 STEP -.5:S0UND 0,L: 

^ ; NEXT L : SOUND 0,0:FOR 1=1 TO 150:NEXT I* 
j | GOTO 20 


í 


SIRENE 

10 SOUND 7,56: SOUND 8,i5:S0UND i,0:SOUN 
D 9,15: SOUND 3,0 

20 SOUND 0,190: SOUND 2,192:F0R 1=1 TO 4 
00:NEXT I : SOUND 0,250:SOUND 2,253:F0R I 
=1 TO 400 : NEXT l:GOTO 20 


DECOLAGEM 

I ® 10 SOUND 7 , 28 : SOUND i,0:SOUND 3,0*SOUND 

6,0: SOUND 0,100:SOUND 8,13«S0UND 9,0:S 
; & • OUND 10,i5:SOUND 12,255:F0R L=i TO 2000 
:NEXT L 

l : 20 FOR L=100 TO 30 STEP -.04:SOUND 0,L: 
l # ; NEXT L : SOUND 8,0:FOR L=2 TO 31 STEP .01 
:SOUND 6,L:NEXT L:SOUND Í0,16:SOUND 13, 

| * | 0 

AN4LISE 


A programação do Gerador de Som Programável do 
MSX é feita de forma direta atravis do BASIC. A instrução 
usada t o SOUND. e para entender melhor como ela funciona, 
consulte o livro LINGUAGEM BASIC MSX . a partir da página 
14 -*. 
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MSX 


c o i_ e: o 2S o 

* LINGUAGEM BASIC MSX - Denlse Santoro Cruz _ 

lima "nnclnlnpédl a“ com todos os comando a Instruções do BASIC 
MSX sm ordem alfabética, explicados com programes exemplos. 

( outubro de 1 905 ) 

» DOMINANDO 0 EXPERT - Denlse Santoro Cru* 

Os primeiros passos no BASIC MSX. explicados de maneira didáti- 
ca espec I a Imante para os principiantes. 

(outubro de 1985) 

« APROFUNDANDO-SE NO MSX - P I a * * I -Ma I donado-0 I I ve I r a 

Os segredos do VDP. PSG. PPI e do microprocessador do MSX ex- 
plicados com dezenas de exemplos de forma didática para quem 
quer produzir programas para seu micro. 

(abril de 19QB ) 

« COLECIO DE PROGRAMAS PARA MoX VOL . I - Oliveira et al 

Programas de Jogos, desenhos e músicas comentados detalhadamen- 
te pare quem quer aprender a programar se divertindo. 

( favarel ro da 19BB ) 

* COLECIO DE PROGRAMAS PARA MSX VOL . I I - Oliveira et al 
Programas didáticos. Jogas, aplicativos e utilitários, comenta- 
dos a explicados passo a passo, com truques e dicas de progra- 
mado .1 

( Junho da 19BB) 

* JOGOS PARA MSX - Wl Ison Fazzlo Martins et al 

Jogos em BASIC e em Linguagem de Máquina que exploram todos os 
recursos do padrio MSX. 

(Julho da 1 9QB ) 

* EXPLORANDO O MSX - Luls Tarcísio (* i Carvalho Jr. 

As características especiais do BASIC MSXi arquivos, sprltes, 
etc. explicados detalhadamente e da forma didática. 

( agQsto de 1 9BB ) 

* USANDO ASSEMBL Y NO M3X - Maldonado et al 

Como usar linguajem de máquina no MSX, com exemplos a aplica- 
ções práticas. 

(setembro da 1988) 

* PROGRAMAÇIO AVANÇADA NO MSX - Rosslnl 

Aprendendo a programar em linguagem de máquina no MSX. com 
exemplos e aplicações práticas. 

( setembro da 1 98B ) 



Se você quiser receber 
gratu i tamente nosso boletim 
Informativo com dicas e programas 
• para seu MSX. destaque 
o cupom abaixo (ou uma 
xerox dele) e envie-o para 

ALEPH PUBL I CACÔES E 
ASSESSOR I A PEDAGÓGICA LTDA. 

Av. Brig. Faria Lima. 1*551- Cj.31 
01451 - S. Paulo - S.P. 

Cx . Posta I i 20707 Tali (011) 212-4ai7 



NOME 
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„ 0 texto deste livro foi composto numa impres- 
sora MONICA PLUS da ElEBRA. utilizando caracteres re 
sidentes e fontes alternativas desenvolvidas pela ELE- 
BRA. As amostras de tela foram obtidas colocando-se a 
MONICA no modo gráfico e utilizando-se rotinas de có- 
pia para MSX desenvolvidas pela equipe de programação 
da ALEPH. publ içadas nos livros APROFUNDANDO-SE NO MSX 
COLECAO DE PROGRAMAS PARA MSX VOL . II e PROGRAMAÇÍÓ • 
AVANÇADA NO MSX. 


elebra 



informática 


COLEÇÃO MSX 






A iuplaatação do padrão HSX ao Brasil goroo 
uoa grande procura do litoratura específica por parte 
dos osaários. Por sor unia uáquina reconto ou todo o 
■undo, uesuo as publicaçães estrangeiras são escassas. 
Para suprir as nacossidados dos usuários nacionais, a 
EDITORA ALEPH vam produzindo uma série de livros o ou- 
tros uatoriais dodicados a assa liada do aiicros. que 
toa tudo para se tornar una das uais difundidas ou 
nosso país. 

Com o caractor ístico z8lo peia clareza e in- 
teligibilidade do suas publ ições, uais nua voz saindo 
o chagando na fronto. a EDITORA ALEPH brinda sous lei- 
toros cou asta reedição do um dos uaioros sucessos da 
COLEÇÃO MS) r 

Dificiluonta o leitor conseguirá encontrar, 
uosara eu livros (aportados ou traduzidos, oxplicaçõos 
tao didáticas, dicas o a *uac8tos** tão procurados cou o 
no 'COLEÇÃO DE PROGRAMAS PARA O MSJT. una colatlnoa 
de quaso 40 prograuas couentados passo a passo o que 
tau couo final idado áltiua uostrar couo so podo asar o 
podarosíssiuo BASIC MSXI 


X Editora 

h.leph 



